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EDITORIAL 


€£16- 
Plus 4 
Intern 

Wer der Meinung ist, mit einem CI6 
oder Pius4 lasse sich nicht professio¬ 
nell arbeiten, der hat C16-P4- 
SPEZIAL noch nicht gelesen. Sie 
finden hier nicht nur Programme, 
sondern auch das Know-how, um 
selbst solche zu erstellen. Die Bei¬ 
träge PROGRAMMIEREN WIE EIN 
PROFI, EINGABE FELD MIT 
PFIFF, DIE MASKE MACHT 
MUSIK und TEXTEN WIE DIE 
PROFIS in dieser Ausgabe von CI 6- 
P4-SPEZ/A L zeigen Ihnen, wie Sie 
durch Ausschöpfen der Möglich¬ 
keiten Ihres Rechners Anwendun¬ 
gen selbst erstellen können, die den 
Vergleich mit gekauften Program¬ 
men keineswegs zu scheuen brau¬ 
chen. Daß der CI6 keineswegs nur 
ein Spielecomputer ist, sehen Sie 
bereits im Inhaltsverzeichnis: Die 
Anzahl der Anwenderprogramme 
hat beträchtlich zugenommen. 

Im Ergebnis unserer Fragebogen¬ 
aktion zeigte sich, daß Sie gerne 
mehr Anwendungen in unseren Hef¬ 
ten sehen würden. Mit unseren Pro¬ 
grammen in diesem Heft können 
Sie Ihren Rechner zur Buchführung, 
zur Kontrolle der Ausgaben für Ihr 
Fahrzeug, zur Übersicht über alle 
möglichen Daten benützen. Ein 
spezielles Druckprogramm, das ein 
Disketten-/nhaltsverzeichnis auf das 
richtige Format bringt, damit es 
leicht auf einer Diskettenhülle un¬ 
terzubringen ist, hilft Ihnen, Ihre 
Ordnung besser zu verwalten. Wenn 
Sie sich vom Arbeiten entspannen 
möchten, so finden Sie dafür auch 
eine Anzahl von Spielen. 

Sollten Sie einen besonderen 
Wunsch haben, von dessen Erfül¬ 
lung auch andere profitieren kön¬ 
nen, so haben wir immer ein Ohr 
für Sie offen. 

Viele Soft- und Hardware-Entwick¬ 
lungen erfolgten bereits in der Ver¬ 
gangenheit nach Leserwünschen. Der 
Checksummer erleichtert die Listing- 


Eingabe, der Checkmon das Einge¬ 
ben von Maschinenprogrammen. Un¬ 
ser Zeichensatzprogramm verhilft 
Ihrem Rechner und Drucker zu deut¬ 
schen Umlauten. Damit Sie Grafiken 
nicht nur auf dem Bildschirm be¬ 
trachten können, hilft Ihnen unser 
Hardcopy-Programm, diese dauer¬ 
haft auf Papier zu bringen. Ein 
Centronics-Kabel für den Plus4 und 
ein Centronics-Interface für den CI6, 
C116 und den P/us4 ermöglicht Ih¬ 
nen den Anschluß hochwertiger 
Drucker. 

Auch künftig sind wir für Ihre 
Wünsche und Anregungen offen. 

Bitte verstehen Sie jedoch, daß die 
Entwicklung eines Programms oder 
einer Hardware manchmal etwas 
dauert. 
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PC Pilotprojekt im Bayerischen Wald 


In Zwiesel vermittelt der Computer 


Meldezettel bearbei¬ 
ten, Zimmer 
vermitteln — der 
Kurverwaltung des 
bayerischen Städt¬ 
chens Zwiesel wuchs 
der Verwaltungsauf¬ 
wand über den Kopf. 

Ein EDV- 
Pilotprojekt, unter¬ 
stützt von einem 
namhaften 
Computer-Hersteller, 
schafft AbhUfe. 




































N atur erleben und 
genießen“ — die 
Werbeprospekte 
des Luftkurorts Zwiesel 
präsentieren die Vorzüge 
der Umgebung, auf Hoch¬ 
glanz, in den schönsten 
Farben. Hier, im Hinte¬ 
ren Bayerischen Wald, 
sollte man glauben, ist 
die Welt noch in Ordnung. 


Doch die Idylle trügt. 
Das leicht verschlafen 
wirkende Kleinstädtchen 
ist putzmunter. Seit eini¬ 
gen Monaten rumort es 
im Rathaus: Die Zwicse- 
ler sind auf den PC ge¬ 
kommen. Die Kurverwal¬ 
tung war es leid, mit um¬ 
ständlichen Arbeitsvor¬ 
gängen wie der Zimmer- 
Vermittlung kostbare 
Zeit zu verplempern. Mit 
einem passenden EDV- 
System, so die Idee, müß¬ 
te sich doch vieles schnel¬ 
ler erledigen lassen. 


Unterstützung hat man 
bei Commodore gefun¬ 
den. Der Frankfurter 
Computer-Hersteller war 
interessiert und lieferte 
die Hardware, — leihwei¬ 
se, mit der Möglichkeit 
zum späteren Kauf. Das 


Startschuß 
mit Musikeinlage 


..Pilotprojekt Zimmerver¬ 
mittlungs-System“ war 
geboren. 

,.Angefangen hat es 
auf der Münchner Systems 


im Oktober letzten Jah¬ 
res“, erzählt Gerald Hahn, 
Commodores Pressechef. 
,,Die Zwieseler kamen 
mit Bier und Blaskapelle 
an unseren Stand“. Das 
war der offizielle Start 
für das Projekt, besiegelt 
wurde die Zusammenar- 
bei mit der feierlichen 
Übergabe einer Tastatur. 

,,Die Konkurrenz ne¬ 
benan hat sich mächtig 
über den Rummel geär¬ 
gert, den wir auf der 


anstaltet der Kurort am 
Hausberg Arber ein Ski- 
Weltcup-Rennen. Dieser 
Arber-Kristall-Pokal wird 
von den Frankfurtern ge¬ 
sponsert. Was lag näher, 
als diese Beziehungen zu 
nützen? 

Blencke ist bereits seit 
1986 mit Commodore im 
Gespräch, das Projekt ist 
im Grunde sein ,.Kind“: 
,.Das wäre doch ein Bom¬ 
benmarkt“. - Vor allem 
für die Computer-Indu¬ 


Schließlich hat man 
mit der Münchner Soft¬ 
ware-Firma Nexus einen 

Zimmer - 
Vermittlung 
maßgeschneidert 


Hersteller gefunden, der 
das Programm innerhalb 
von fünf Monaten ent¬ 
wickelte. Mit ICBS (In- 



Messe- veranstaltet ha¬ 
ben“. Rainer Bleneke, 
Leiter der Kurverwaltung 
Zwiesel, gibt amüsiert die 
Geschichte zum besten: 
Schaulustige hätten sich 
in Massen um den Com- 
modorestand gedrängt. 
Auch die Messeleitung sei 
nicht erbaut gewesen, 
denn die volkstümliche 
Musikeinlage wurde vor¬ 
her mit niemandem ab¬ 
gesprochen. 

Die Kontakte zwischen 
Commodore und Zwiesel 
bestehen bereits seit 
1976. Alle drei Jahre ver¬ 


strie. In der Tat gibt es 
bislang noch keine Hard- 
und Software-Pakete, die 
speziell auf die Bedürf¬ 
nisse von kleineren Kur¬ 
verwaltungen zugeschnit¬ 
ten wären. So wird denn, 
laut Hahn, ein Projekt 
dieser Art ,,erstmals in 
der BRD durchgeführt“. 

Ein Problem war aller¬ 
dings die Software. An 
komplizierten Geschich¬ 
ten war man nicht inter¬ 
essiert. ,.Das Programm 
sollte simpel sein“, sagt 
Blencke, der „von EDV 
so gut wie keine Ahnung“ 
hat. 


W. Hoffmann von 
Commodore über¬ 
reicht symbolisch eine 
Tastatur an den Leiter 
der Zwieseler Kurver¬ 
waltung 


Coming Bureau System) 
liegt jetzt eine Software 
vor, die außer dem Kern¬ 
stück der elektronischen 
Zimmervermittlung auch 
andere Aufgaben über¬ 
nimmt: Verwaltung von 
Meldescheinen, Erstellung 
von Statistiken, Adressen¬ 
verwaltung, Textverarbei¬ 
tung und diverse verwal¬ 
tungstechnische Berech¬ 
nungen. 
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Blencke lobt die Zu¬ 
sammenarbeit mit den 
Münchnern: „Wir haben 
viel diskutiert, damit die 
Arbeit mit dem Pro¬ 
gramm einfach sein wird. 
Das Problem bei vielen 
Programmierern ist: Sie 
heben ab und machen 
eine Sache komplizierter, 
als sie sein müßte.“ 

Das ist bei ICBS mit 
Sicherheit nicht der Fall. 
Auch Computer-Neulin¬ 
ge, und genau das sind 
die Angestellten der Kur¬ 
verwaltung, dürften keine 
Schwierigkeiten damit 
haben. 

»Die 

Programmierer 
heben ab« 


Das Programm ist über 
die Tastatur oder mit der 
Maus zu bedienen. Meh¬ 
rere Arbeitsschritte in 
verschiedenen Masken 
lassen sich gleichzeitig 
vornehmen. Auch der Da¬ 
tenschutz ist gewährlei¬ 
stet. Im besonders emp¬ 
findlichen Statistik-Be¬ 
reich erlaubt ein Master¬ 
code nur dem Kurverwal¬ 
tungsleiter Zugang. 

ICBS ist zugeschnitten 
auf die Bedürfnisse von 
Fremdenverkehrsorten. 
Jedes Hotel oder Gast¬ 
haus, jede Pension oder 
Ferienwohnung wird mit 
den wichtigsten Informa¬ 
tionen gespeichert. 

Zur Vereinfachung 
werden die Betten zu¬ 
nächst als belegt geführt. 
Erst nach der Frei-Mel- 
dung des Wirts werden sie 
interessierten Gästen an- 
geboten. Die einzelnen 
Betriebe sind in einer 
Warteschlange aufgelistet 
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Ein strahlendes Gesicht beweist, daß es funktioniert 


und werden der Reihe 
nach ausgegeben. Damit 
will man die Bevorzugung 
oder Benachteiligung ein¬ 
zelner Wirte verhindern. 
Außerdem, so Blencke: 
„Wenn sich jetzt einer be¬ 
klagt, wir würden ihm 
keine Gäste vermitteln, 
können wir das jederzeit 
nachprüfen und das Ge¬ 
genteil beweisen.“ 


Ein Gast muß sich in¬ 
nerhalb von zwei Stun¬ 
den bei seiner gewählten 
Unterkunft melden. Sie 
gilt während dieser Zeit 
als reserviert. Erst wenn 
die Kurverwaltung die 
Bestätigung des Wirts er¬ 
hält, wird der Belegungs¬ 
plan geändert. 

Auch die schwarzen 
Schafe unter den „Her¬ 
bergsvätern“ lassen sich 
besser dingfest machen: 
Da der Meldeschein des 
Gastes schneller bearbei¬ 
tet wird, ist so manches 
Schnäppchen nebenher, 
durch elegantes Umschif¬ 
fen der Meldung, ausge¬ 


schlossen. Ungeschoren 
kommen diese vergeßli¬ 
chen Zeitgenossen nicht 
davon: Das Programm 
verteilt bei derartigen 
Fehltritten schwarze 
Punkte. Wer drei davon 
beisammen hat, wird für 
einige Zeit bei der Ver¬ 
mittlung übergangen. 

Gerade in diesem Be¬ 
reich erwartet Blencke 
einige Schwierigkeiten: 
„Die Betriebe müssen un¬ 
bedingt mitspielen“. Es 
ist deshalb geplant, die 


Keine Chance 
für 

schwarze Schafe 


Vermieter einzuladen 
und ihnen die Neuerun¬ 
gen vorzustellen. Zumal 
sie auch noch in anderer 
Form direkt davon be¬ 
troffen sind: Durch einen 
eigenen Btx-Anschluß 
sollen sie in der Lage 
sein, den Zimmerbele¬ 
gungsplan direkt zu än¬ 


dern und eigenständig zu 
führen. 

Große Chancen für die 
Post sieht in dieser Ver¬ 
netzung Gerd Bruckner, 
zuständig für das Nexus- 
Marketing: „Privatperso¬ 
nen so etwas anzubieten, 
lohnt sich wohl kaum“. 
Ganz im Gegensatz zu 
Hotels und Gasthäusern, 
die damit auch ihre Be¬ 
stellungen aufgeben 
könnten. 

Bislang, obwohl nicht 
mehr allzu lange, ist das 
aber noch Zukunftsmusik. 
Im Zwieseler Verkehrs¬ 
verein arbeitet man noch 
immer im „Handbetrieb“ 
— bei etwa 370 000 Über¬ 
nachtungen in Zwiesel 
pro Jahr ein immenser 
Zeitaufwand für die An¬ 
gestellten. 

Ähnlich sieht es auch 
im Marketing-Bereich 
aus. Zu erfahren, wo¬ 
durch die Besucher auf 
Zwiesel aufmerksam ge¬ 
macht wurden und woher 
sie gekommen sind, war 
bislang nur in Grenzen 
möglich: „Es ist kaum zu 
glauben, aber die Leute 
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sind mitunter rumgelau¬ 
fen und haben sich Auto¬ 
kennzeichen notiert, um 
herauszufinden, von wo¬ 
her die Gäste angereist 
sind“, sagt Bruckner. 

Der Marketing-Nutzen 
ist auch ein Hintergedan¬ 
ke von Blencke: ,,'Wir be¬ 
kommen mit diesem Sy¬ 
stem ein Kontrollinstru- 
ment in die Hand, mit 
dem wir feststellen kön¬ 
nen, wie viele Anfragen 
letztlich zu einer festen 
Buchung führen“. Das 
heißt auch, falls Aufwen¬ 
dungen für Werbematerial 
und Anzahl der Besucher 
in keinem angemessenen 
Verhältnis stehen: ,,Was 
ist mit unseren Prospek¬ 
ten los?“ Wenn eine An¬ 
zeigenkampagne, twa in 
überregionalen Medien, 
keinen sichtbaren Erfolg 
bringt, wird sie gestoppt. 


Stiefkind 
Deutschland - 
Urlaub 


Durch die EDV wird 
auch die engere Zusam¬ 
menarbeit mit Reisebüros 
möglich. In dieser Hin¬ 
sicht liegt einiges im 
argen. Laut Blencke, der 
aus der Touristik-Branche 
kommt, sind Deutschland- 
Urlaube noch immer 
Stiefkinder der Reise- 
Vermittler: „Es erfordert 
viel zu viel Aufwand und 
Kosten, bis eine Buchung 
zustande kommt“. 

In dieser Lücke liegt 
jedoch eine Chance für 
kleinere Fremdenver¬ 
kehrsorte, sofern sie sich 
nicht gegen die Technik 
sträuben. Gerade mit den 
reisefreudigen „Neuen 
Alten“ entstehe ein viel¬ 
versprechender Markt: 


„Sehen Sie sich die Alters¬ 
pyramide an: Weniger 
Junge, dafür umso mehr 
Alte. Das ist der Personen¬ 
kreis, der Reisebüros in 
Anspruch nimmt“, meint 
Gerd Bruckner. Ältere 
Menschen, so seine An¬ 
sicht, gingen auf Nummer 
sicher. „Die fahren nicht 
einfach ins Blaue, die 
wollen vorher wissen, wo 
sie übernachten werden. 
Denen ist auch wichtig, 
daß deutsch gesprochen 
wird“. 

Offensichtlich hat man 


in Zwiesel den richtigen 
Riecher gehabt. Das 
scheint auch nötig, da ei¬ 
ne Zeitlang der Besucher¬ 
strom nachgelassen hatte. 
Jetzt verzeichnet man 
zwar wieder einen Auf¬ 
wärtstrend, doch für grö¬ 
ßere Hotels ist die Stadt 
nicht attraktiv. Blencke: 
„Die Preise sind einfach 
zu schlecht“. 

So sind denn auch die 
etwa 350 Hotels, Gast¬ 
stätten und Pensionen 
zum großen Teil reine 
Familienbetriebe, die 


Was leistet und was kostet ICBS? 


Zimmervermittlung: In 

einer Datenbank werden 
die wichtigsten Daten der 
Beherbergungsbetriebe 
zusammengefaßt, vor al¬ 
lem Informationen über 
die momentane Belegung. 

Meldescheine: Eingabe 

und Verwaltung von Mel¬ 
descheinen. 

Telekommunikation: Ver¬ 
schiedene Schnittstellen 
ermöglichen eine Anbin¬ 
dung an Btx und andere 
Übertragungsarten zum 
Anschluß an Reiseveran¬ 
stalter, Busuntemehmen 
und die Beherbergungs¬ 
betriebe. 

Textverarbeitung: Ein 

vorhandenes Textverar- 
beitungs-Programm (etwa 
Word oder Wordstar) 
kann sofort integriert 
werden. Die spezielle 
ICBS-Textverarbeitung 
ist in Kürze verfügbar. 

Statistik: Durch kontinu¬ 
ierliche Eingabe der Mel¬ 
descheine sind Vergleiche 
mit den Daten der Zim¬ 
mervermittlung möglich. 
Angaben der Beherber¬ 
gungsbetriebe können 
kontrolliert werden. Die 
äußere Werbung (Inserate) 
läßt sich flexibel gestal¬ 
ten. 

Berechnung: Verwaltungs¬ 


technische Berechnungen 
wie Fremdenverkehrs¬ 
oder Kurabgaben werden 
erfaßt und abgewickelt. 
Die Einbindung in das 
Statistik- und Textverar¬ 
beitungsprogramm er¬ 
bringt Vergleichszahlen 
für Vergangenheit oder 
Zukunft. 

Netzwerk: Durch Installa¬ 
tion eines Netzwerks 
kann eine den jeweiligen 
Bedürfnissen angepaßte 
Anzahl von Rechnern an¬ 
geschlossen werden. 

Kosten: 

Ein Arbeitsplatz: 
Commodore PC-AT 
40/40 

Drucker NEC P7 (DIN 
A3) 

Aufsatztraktor bidi¬ 
rektional 
Software 

Leasing: 458.04 Mark/ 
Monat 

Kauf: 20.000 Mark 

Bis zu fünf Arbeitsplätze: 
Fünf PC 
Zwei Drucker 
Kauf: 40.000 Mark 

Netzanschluß: 

(für bis zu acht Terminals) 
10.000 Mark 

Textverarbeitung: 
etwa 300 bis 400 Mark 

Btx-Anschluß: 

65 Mark/Monat 


rund ein- bis anderthalb¬ 
tausend Personen (von 
rund 10.000 Einwohnern) 
beschäftigen. 

Die Möglichkeit, den 
Verwaltungsaufwand zu 
reduzieren, ist nicht nur 
für die Zwieseler interes¬ 
sant. Auch andere Kuror¬ 
te sind bereits hellhörig 
geworden. Als das Pro¬ 
jekt Anfang März auf der 
ITB, der Internationalen 
Tourismus-Börse, in Ber¬ 
lin vorgestellt wurde, war, 
so Blencke, „der Stand 
permanent belegt.“ 


Info-Boy 
meldet 
freie Zimmer 

Die Vorbereitungen für 
die endgültige Inbetrieb¬ 
nahme sind voll im Gange. 
Bisher stehen der Kurver¬ 
waltung zwei AT 40/40 
zur Verfügung. Laut Ge¬ 
rald Hahn sind etwa zehn 
Rechner vorgesehen. Bis 
Weihnachten, hofft 
Blencke, soll die Anlage 
einsatzbereit sein. 

Ein sogenannter Info- 
Boy ist bereits installiert: 
An der Außenwand des 
Rathauses können Gäste 
per Knopfdruck freie 
Zimmer auf dem Bild¬ 
schirm abrufen. Für den 
Leiter der Kurverwaltung 
nur ein zusätzlicher Ser¬ 
vice, denn wichtig sei die 
persönliche Betreuung 
der Gäste. Und die ist 
bisher zu kurz gekommen. 
Der Verwaltungsaufwand 
dürfte zwar nach Einfüh¬ 
rung der EDV um die 
Hälfte verringert werden. 
Weniger Arbeit bedeutet 
dies allerdings nicht: „Sie 
wird endlich dahin ver¬ 
lagert, wo sie auch hinge¬ 
hört: In die effektivere 
Betreung und den Service 
für die Erholungssuchen¬ 
den. WCS« 
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Neues 

bei der 
Post 


Im vergangenen Jahr fegte ein Sturm durch den deutschen Blätterwald, als das Sachverständigen-Gut- 
achten zur weiteren Entwicklung der Deutschen Bundespost vorgelegt wurde. Die Politiker stritten, die 
Postgewerkschaft protestierte und die Bevölkerung schwankte zwischen Zustimmung und leisen Zweifeln, 
ob eine Neustrukturierung für sie ein Vorteil sein würde. Was hat es wirklich auf sich mit der Umorgani¬ 
sation des bisher monopolistischen Postriesen? 


I n diesen Wochen soll ein Ge¬ 
setzentwurf des Postministers 
zur Neugestaltung der Deut¬ 
schen Bundespost im Kabinett und an¬ 
schließend im Deutschen Bundestag 
beraten und verabschiedet werden. Die 
führenden Beamten im Postministeri¬ 
um geben nur zögernd nähere Details 
bekannt. Trotzdem haben wir Interes¬ 
santes erfahren. Diese Informationen 
wollen wir Ihnen nicht vorenthalten. 

Ausverkauf der Post:Wer will was? 

Die Telefongebühren in Deutschland 
sind wesentlich überhöht. Aus den 
Überschüssen, die in diesem Bereich er¬ 
wirtschaftet werden, wird die soge¬ 
nannte Gelbe Post, also der Bereich 


des Brief-, Paket- und Päckchendien¬ 
stes, subventioniert. Dieser innerbe¬ 
triebliche Finanzausgleich soll inner¬ 
halb von einigen Jahren, man spricht 
von drei, abgebaut werden. So sehr 
sich jeder, der oft zum Telefonhörer 
greift, freuen wird, daß das Telefonie¬ 
ren billiger werden müßte — einen Wer¬ 
mutstropfen hat das Ganze schon. 

Denn mit Sicherheit müssen dann das 
Briefporto und die Paket- und Päck¬ 
chengebühren angehoben werden. Und 
zwar teilweise nicht unerheblich. Doch 
wen trifft das? Den Geschäftsmann si¬ 
cher nicht so stark wie die Rentnerin. 
Denn der Unternehmer hat ja viele sei¬ 
ner Kontakte bisher schon über das Te¬ 
lefon abgewickelt und wird dies in Zu¬ 
kunft dann verstärkt tun. Und wie bis¬ 


her wird er auch weiterhin die Gebüh¬ 
ren als Geschäftskosten absetzen kön¬ 
nen. 

Opfer Nummer 1: Die Rentnerin 

Aber die alleinstehende Rentnerin, die 
sich auf Grund ihrer schmalen Rente 
kein Telefon leisten kann, wird wieder 
einmal zur Kasse gebeten, wenn sie 
den Kontakt mit ihren Angehörigen 
aufrecht erhalten und einen Brief 
frankieren will. Ob dies politisch wirk¬ 
lich so gewollt ist? Sicher, denn sonst 
würde es nicht so gemacht werden. 
Oder wird von der Regierung in diesem 
unserem Land beabsichtigt, den Brief¬ 
dienst noch mehr in die roten Zahlen 
rutschen zu lassen und auf Kosten der 
Steuerzahler, also auf Kosten aller 
Geldbeutel, über Wasser zu halten? 
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Dann ist abzusehen, daß dieser Dienst¬ 
zweig bald so hoch verschuldet sein 
wird wie jetzt die Bahn. Oder die Lei¬ 
stungen werden noch mehr einge¬ 
schränkt, um Kosten zu sparen. Denn 
mit Rationalisierung ist beim Brief¬ 
dienst kaum mehr etwas möglich, da 
die höchsten Kosten in diesem Bereich 
Personal kosten sind. 

Opfer Nummer 2; Der Briefkunde 

Man könnte natürlich die Briefkästen 
nur noch einmal täglich leeren, die 
Samstagszustellung aufgeben, die Pa¬ 
ketzustellung in die Wohnung einstel¬ 
len, den Zeitungsdienst sterben lassen 
und die Zahl der Briefkästen drastisch 
reduzieren. Doch mal ganz ehrlich. 
Will das jemand? Oder würde nicht 
dann die Schimpferei über die Post 
noch mehr zunehmen? Und mit der 
Tatsache, daß etwa 95 Prozent der bis 
17 Uhr eingeworfenen Briefe am näch¬ 
sten Tag beim Empfänger im Brief¬ 
kasten liegen, wäre es wohl auch vor¬ 
bei. 

Mehr Auswahl bei den 
Telefonapparaten 

Doch was kommt auf der anderen Sei¬ 
te auf den Telefonkunden zu? Auch 
dort ist noch so manches unausgegoren. 
Es soll zwar der sogenannte Endgeräte¬ 
markt freigegeben werden. In der Pra¬ 
xis läuft das darauf hinaus, daß jeder, 
der einen normalen Hauptanschluß 
besitzt (Postjargon: Tante-Emma-An- 
schluß), nicht mehr auf die Standard¬ 
apparate der Post angewiesen ist, son¬ 
dern einen Apparat seiner Wahl beim 
Händler kaufen kann, wenn dieser den 
technischen Normen der Post an der 
Schnittstelle entspricht. 

Damit wäre es ohne weiteres möglich, 
sich ein schnurloses Telefon mit beson¬ 
derem Komfort zuzulegen oder sich 
für ein besonderes Design zu entschei¬ 
den. Zweifellos wartet die einschlägige 
Fernmelde-Industrie darauf schon lan¬ 
ge. Der Kunde sicher auch. 

Doch wer sagt dann dem Kunden-, was 
er wirklich anschließen darf und was 
nur für eine Haustelefonanlage geeig¬ 
net ist? Denn über eine Tatsache müs¬ 
sen sich alle Beteiligten im klaren sein: 
Weltweit gibt es in diesem Bereich so¬ 
viel No-Name-Ramsch, daß der Käufer 
sicher schnell die Übersicht verliert. 
Und wenn er dann schlecht beraten 
wird, ist es schon passiert. 


Er hat zwar für sein gutes Geld einen 
teuren Apparat erstanden, darf ihn 
aber nicht anschließen, weil die Bedin¬ 
gungen zum Anschluß an das öffentli¬ 
che Netz nach wie vor von der Post 
festgelegt werden. Und dies muß auch 
so sein, denn sonst könnte der Fall ein- 
treten, daß ein Apparat, der technisch 
nicht dem hohen Standard der Post 
entspricht, nicht nur seinen eigenen 
Anschluß lahmlegt. 

Trotzdem bedeutet die Vielfalt von zu¬ 
künftigen Apparaten ohne Zweifel 
mehr Auswahl, da hat die Post trotz 
einiger guter Ansätze in der Vergan¬ 
genheit wohl selig geschlafen. Doch 
was ist, wenn dieser Apparat eines Ta¬ 
ges nicht mehr geht? Woher soll besag¬ 
te Tante Emma wissen, wo der Fehler 
liegt? Ist ihr Apparat kaputt, liegt es 
an der Leitung auf der Straße, hat die¬ 
se Leitung vielleicht ein Bagger ange¬ 
rissen oder liegt ein Fehler in der Ver¬ 
mittlungsstelle der Post vor? 

Opfer Nummer 3: 

Der Telefonkunde 

Bisher war dies kein Problem. Ging das 
Telefon nicht mehr, genügteein Anruf 
bei der Entstörungsstelle, um, mehr 
oder weniger schnell, wieder telefonie¬ 
ren zu können. War der Apparat de¬ 
fekt, kam der Entstörer vorbei und 
wechselte ihn aus. War etwas anderes 
gestört, kümmerte sich die Post eben¬ 
falls darum. Und das alles kostenlos! 
Dies wird in Zukunft anders sein. Wer 
nicht den Normapparat der Post haben 
will, sondern sich einen im privaten 
Handel gekauft oder gemietet hat, der 
erhält in seiner Wohnung eine neue 
Anschlußdose als Schnittstelle instal¬ 
liert. Wenn eine Störung gemeldet wird, 
kann von der • Entstörungsstelle der 
Post festgestellt werden,ob die Leitung 
bis zu diesem Übergabepunkt in Ord¬ 
nung ist oder nicht. 

Ist das nicht der Fall und liegt auch 
sonst kein Fehler in den weiterführen¬ 
den technischen Einrichtungen der 
Post vor, so ist die Behebung des Feh¬ 
lers allein Sache des Telefonbesitzers. 
Er muß sich darum kümmern, daß sein 
Apparat wieder funktioniert. 

Zahlen müssen Sie immer! 

Es bleibt nur die Wahl, entweder den 
Kundendienst der Firma anzurufen, 
bei der der Apparat gekauft wurde 


oder sich gleich einen neuen zuzule¬ 
gen. Beides’kostet Geld. Denn wer ei¬ 
nen Defekt an der Waschmaschine hat, 
muß ja auch für die Reparatur bezah¬ 
len. So der Gedankengang bei den Ver¬ 
antwortlichen im Postministerium 
Doch was ist, wenn jemand einen Tele¬ 
fonapparat mit FTZ-Zulassung hat und 
dieser dann trotzdem stört: Kann die 
Post dafür auch Geld verlangen 7 

Opfer Nummer 4: 

Der Computer-Freak 

Besonders kompliziert wird es, wenn 
jemand keinen normalen Apparat hat, 
sondern eine Mailbox betreibt oder am 
Btx-Verkehr teilnimmt, - oder auch 
nur einen Akustikkoppler angeschlos¬ 
sen hat. Welche Geräte sind nun von 
der Post, welche sind selbstgekauft, wo 
ist die Schnittstelle, wer ist wofür zu¬ 
ständig? Sicher werden auch besonders 
für die Computer-Fans einige neue Ap¬ 
parate auftauchen, so zum Beispiel 
bessere Akustik-Koppler oder Btx- 
Schnittstelien. Aber was ist, wenn die¬ 
se einmal nicht in Ordnung sind? Hal¬ 
ten die Richtlinien der Post mit dem 
technischen Fortschritt mit oder ist 
der User der Dumme? 

Fragen über Fragen, die bisher unge¬ 
klärt sind und die auch in Zukunft 
noch Stoff für Streitereien bieten und 
wohl auch zu einigen Musterprozessen 
vor den zuständigen Gerichten führen 
werden. Wer will der erste sein? 

Wer macht was, wo und wann? 

Denn was ist zum Beispiel, wenn bei 
einer Störung zwar die Leitung in Ord¬ 
nung ist, der Telefonbesitzer aber trotz¬ 
dem einen Entstörer verlangt? Muß 
der bezahlt werden, wenn er tatsäch¬ 
lich feststellt, daß der private Telefon¬ 
apparat kaputt ist und stört, obwohl er 
eine Zulassungsnummer der Post hat? 
Darf er ihn trotzdem entstören oder 

den Worten : „Da müssen Sie sich schon 
selbst drum kümmern." 

Spätestens' dann werden einige von de¬ 
nen, die jetzt für die Freigabe des End¬ 
gerätemarktes sind, aufwachen und 
sich sagen, daß sie das nicht gewußt 
haben und auch nicht informiert wur¬ 
den, weder von der Post noch vom pri¬ 
vaten Händler. 

Darum merke: Es ist nicht alles Gold, 
was glänzt. Auch nicht, wenn es priva¬ 
tes ist! 

(AN) 
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Es geht neuen Zeiten entgegen; Zeiten, in denen 
es kein Herumirren mit dem Cursur und kein 
versehentliches Bildschirmlöschen mehr geben wird. 
Schluß mit Bedienfehlern beim INPUT. Window¬ 
technik, zwei SYS-Aufrufe und ein POKE-Befehl 
ermöglichen professionelle Eingabefelder mit 
komfortablen Editiermöglichkeiten. Folgen Sie auf¬ 
merksam dem Dialog zwischen Holmes und Watson, 
und auch Sie werden schon bald wie ein 
Profi programmieren. 


Prograr 

wie eil 


Wer kennt sie nicht, Dr. 
Watson und S her lock 
Holmes, das Duo, das je¬ 
den Kriminalfall löst. 

Der Eifer und die Dienst- 
beftissenheit eines Watson 
brauchen das Genie und 
den Scharfsinn eines 
Holmes. Nur so entste¬ 
hen aufsehenerregende 
Ergebnisse. Lauschen wir 
doch einmal einem Ge¬ 
spräch dieser zwei Helden, 
das sich in unserer heuti¬ 
gen Zeit um folgendes hät¬ 
te drehen können. 

Nach einem ausgiebigen 
englischen Frühstück zün¬ 
det Holmes sich seine 
Pfeife an. Sinnend bläst 
er blaue Rauchwölkchen 
in die Luft, während 
sich Watson mit der Ta¬ 
geszeitung beschäftigt. 

Die Besprechung bei Scot¬ 
land Yard ist erst am spä¬ 
ten Nachmittag, und so 
bleibt noch etwas Zeit 
zur Muße. Auf einmal 
fragt Holmes: „Was gibt 
es Neues, Watson?“ 
Watson bückt von sei¬ 
nem Artikel über Compu¬ 
ter und gesellschaftüche 
Tendenzen auf, und es 
entwickelt sich ein Ge¬ 
spräch, in dessen Verlauf 
Watson allerlei Aktivitä¬ 
ten entwickelt, Holmes 
aber ledigüch weiter ge- 
nüßüch an seiner Pfeife 
zieht und ganz nebenbei, 
als wäre dies gar nichts, 
unbezahlbare Entdeckun¬ 
gen macht. 

Watson: Ich lese hier ge¬ 
rade, bei vielen Compu- 
temeuüngen bestehe die 
Tendenz, das Program¬ 
mieren nach ein paar an¬ 
fänglichen Versuchen 
bald wieder aufzugeben, 
da mit ein paar BASIC- 
Kenntnissen keine Pro¬ 
fessionalität zu erzielen 
sei und die Ergebnisse 


daher unbefriedigend 
blieben. 

Holmes: Glauben Sie, 
daß das den Tatsachen 
entspricht? 

Watson: Sie meinen, die 
Tendenz sei eine andere, 
und wir sollten eigene 
Untersuchungen anstel¬ 
len?_ 

INPUT MIT MANKOS 


Holmes: Nein, üeber Wat¬ 
son, was wäre dadurch 
schon gewonnen. In der 
Tat lassen viele Program¬ 
me, die sich in Computer¬ 
zeitschriften finden, eini¬ 
ges zu wünschen übrig. 
Wir brauchen uns nur ein¬ 
mal den INPUT-Befehl 
anzusehen, der meist 
zum Einlesen von Einga¬ 
ben verwendet wird. Der 
Benutzer kann kreuz und 
quer über den Bildschirm 
fahren, die Eingabemaske 
überschreiben, sie nach 
oben wegscrollen oder 
den ganzen Bildschirm 
löschen. Komma oder 
Doppelpunkt fungieren 
gar als Trennzeichen für 
mehrere Eingabefelder 
und lassen sich daher 
nicht erfassen. Was ist 
eine Text Verarbeitung 
wert, die nicht einmal 
einen Doppelpunkt oder 
ein Komma annimmt? 
Ich will daher nicht ein¬ 
mal den ersten Teil der 
Behauptung in Frage 
stellen. 

Watson: Wieso ersten 
Teil, gibt es denn einen 
zweiten? Ah, ich sehe 
schon, Sie spielen darauf 
an, ob nicht auch mit 
ein paar BASIC-Kennt- 
nissen professionell pro¬ 
grammiert werden kön¬ 
ne. Aber, Sir, ein kom¬ 
fortables Eingabefeld 
mit dem GET-Befehl zu 
schaffen, erfordert eine 
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Menge an Programmier¬ 
aufwand. Außerdem dürf¬ 
te die Sache dann wohl 
ziemlich langsam werden, 
so daß die Bildschirmaus¬ 
gabe der Eingabe hinter¬ 
herhinkt. Was bleibt also 
übrig? Doch nur die Ma¬ 
schinensprache, die aber 
nur etwas für Profis ist. 
Für unseren Neuling 
oder Durchschnittspro¬ 
grammierer ist also keine 
Lösung in Sicht. 

Holmes: Wer vorschnell 
urteilt, beraubt sich 
selbst der Möglichkeit, 
die Problemlösung zu 
finden. 

Watson: Sie glauben also, 
diese Möglichkeit würde 
tatsächlich bestehen? 
Holmes: Lieber Watson, 
ich glaube gar nichts. 

Aber ich denke, die Sa¬ 
che wäre der Untersu¬ 
chung wert. Außerdem 
bieten CI 6, CI 16 sowie 
der Plus/4 mit ihrem 
komfortablen BASIC und 
den zusätzlichen Editor- 
Funktionen sehr wohl 
die Möglichkeit, ein ört¬ 
lich begrenztes Eingabe¬ 
feld zu entwickeln, das 
ein Herauswandern des 
Cursors unterbindet. 


WINDOW BEGRENZT 
EINGABEFELD 


Watson: Ah, an die Win¬ 
dowtechnik hätte ich 
jetzt nicht im Traume ge¬ 
dacht. Das wollen wir 
gleich ausprobieren. Der 
Computer ist eingeschal¬ 
tet; zwei Doppelpunkte, 
die Anfang und Ende des 
Eingabefeldes markieren 
sollen: ESC T nach dem 
ersten Doppelpunkt, um 
den Beginn des Fensters 
zu setzen; ESC B vor dem 
zweiten Doppelpunkt, 
um das Ende zu setzen. 
Ich teste jetzt alle Mög¬ 
lichkeiten durch. Cursor 
nach unten bringt ein 
unerwünschtes Resultat: 
der eingegebene Text ver¬ 
schwindet. Das gleiche ge¬ 
schieht auch am Feld¬ 
ende bei Cursor nach 
rechts oder bei der Einga¬ 
be eines Buchstabens. 
Prima funktioniert der 
Einfügemodus mit ESC 
A. Schon hat ein Buch¬ 


stabe den rechten Feld¬ 
rand erreicht. 

Was wohl beim nächsten 
Verschieben geschieht? 
Der Cursor ist weg, nichts 
rührt sich mehr. Oh je, 
ein regelrechter System¬ 
absturz. Die Idee war gut, 
die Resultate jedoch we¬ 
niger. 

Holmes: Warum wohl 
sind die Resultate unbe¬ 
friedigend. mein lieber 
Watson? Ganz einfach, 
weil nach Erreichen des 
rechten Feldrandes oder 
bei der Verschiebung des 
Cursors der Bildschirm, 
oder was von ihm noch 
im Fenster erscheint, 
scrollt. Sie brauchen da¬ 
her nur den Scroll-Mo- 
dus auszuschalten. 
Watson: Also alles noch 
einmal von vorne: Reset 
ist durchgeführt, Fenster 
vvurde neu definiert, mit 
ESC M das Scrolling aus¬ 
geschaltet. Der Cursor 
läßt sich nicht mehr nach 
unten bewegen. Will ich 
mit ihm nach rechts das 
Eingabefeld verlassen, er¬ 
scheint er am Feldanfang. 
Der eingegebene Text 


SCROLLING 

UNTERDRÜCKEN 


bleibt jedoch erhalten. 

Im Einfüge-Modus blei¬ 
ben die Buchstaben bei 
Erreichen des rechten 
Randes stehen und kön¬ 
nen, da es nichts mehr 
zu verschieben gibt, 
durch entsprechenden 
Tastendruck überschrie¬ 
ben werden. Am rechten 
Feldrand angelangt, be¬ 
wegt sich der Cursor 
nach Eingabe eines be¬ 
liebigen Buchstabens 
nicht mehr weiter, son¬ 
dern bleibt auf diesem 
stehen. Sehr gut, einfach 
wunderbar. Wir können 
die Sache wohl so lassen. 
Holmes: Etwas haben 
wir allerdings noch nicht 
berücksichtigt, lieber 
Watson. 

Watson: Richtig, Sir, es 
gibt noch unerwünschte 
Tastendrücke, die unser 
Eingabefeld wieder zunich¬ 
te machen können: et¬ 
wa zweimaliges Drücken 
der HOME-Taste oder 
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das Wiedereinschalten des 
Scroll-Modus mit ESC L. 
Holmes: Nicht zu verges¬ 
sen die ESC-Sequenzen 
ESC R, ESC T, ESC B 
oder ESC N. 

Watson: Das bedeutet 
aber, daß nicht mit 
INPUT eingelesen werden 
darf, sondern daß wir ei¬ 
ne aufwendige GET-Rou- 
tine schreiben müssen. 
Holmes: Das ist nicht ge¬ 
sagt, Watson. Zwar ist der 
GET-Befehl zu benützen, 
jedoch sollte sich eine 
aufwendige Programm¬ 
konstruktion vermeiden 
lassen. Wir verwenden den 
GET-Befehl nicht zur voll¬ 
ständigen Erfassung der 
gesamten Eingaben. Wir 
brauchen ihn nur zur Er¬ 
fassung der jeweiligen 
Taste, die wir durch einen 
PRINT-Befehl auf den 
Bildschirm zu bringen ge¬ 
denken. 

Watson: Wie aber sollen 
wir dann den auf dem 
Bildschirm sichtbaren 
Text in eine Variable 
bringen? 


GET PRINT UND INPUT 


Holmes: Natürlich mit ei¬ 
nem INPUT-Befehl. 
Watson: Ich verstehe 
nicht: Wir sollen also den 
INPUT-Befehl vermeiden 
und statt dessen GET 
benützen. Anschließend 
aber doch wieder INPUT? 
Holmes: Ganz richtig, Wat¬ 
son, genau in dieser Rei¬ 
henfolge. Was wissen Sie 
über den INPUT-Befehl? 
Watson: Der INPUT-Be¬ 
fehl ermöglicht die Ein¬ 
gabe von Zahlen oder 
Strings. Folgt dem INPUT 
eine ganze Eingabeliste, 
so können mit nur einem 
Befehl gleich mehrere 
Eingaben erfaßt werden. 
Holmes: Ist das schon al¬ 
les? Nehmen wir an, 
durch einen INPUT-Be¬ 
fehl werde die Eingabe 
eines einzigen Textstrings 
erwartet. Sie geben diesen 
ein. Die Stringvariable sei 
A$. Was ist mit dem In¬ 
halt der Variablen nach 
Ihrer Eingabe? 

Watson: Die Variable ent¬ 
hält meine Eingabe. 
Holmes: Und wenn in der 
Eingabezeile bereits etwas 


anderes gestanden hat? 
Watson: Aha, daher weht 
der Wind. Bisher war ich 
der Auffassung, nur die 
Eingabe würde erfaßt 
werden. Da ich aber Ih¬ 
ren Scharfsinn kenne, bin 
ich nicht mehr sicher. Sie 
glauben, der gesamte In¬ 
halt der Zeile würde er¬ 
faßt? 

Holmes: Zumindest das, 
was sich rechts des IN- 
PUT-Fragezeichens be¬ 
findet. Machen wir einen 
kleinen Versuch. 

Geben Sie ein: 

1 PRINT CHR$(147) 

“ REST“ 

2 PRINT CHR$(19); 

:INPUT A$ 

3 PRINT A$ 

Watson: Sie haben recht, 
Sir. Das heißt also, wir 
können mit dem INPUT- 
Befehl bereits auf dem 
Bildschirm Vorhandenes 
einiesen, folglich auch un¬ 
sere durch eine GET- 
Schleife gemachte Einga¬ 
be. Ärgerlich wären aber 
zwei einzugebende 
RETURNs: das erste in 
der GET-Schleife, um 
das Ende der Eingabe zu 
signalisieren, das zweite, 
um den INPÜT abzu¬ 
schließen. Doch halt, 
warum das zweite 
RETURN nicht einfach 
vorgeben durch POKEn 
in den Tastaturpuffer? 
Wirklich, Sir, einfach ge¬ 
nial. Wenn nur das stö¬ 
rende Fragezeichen und 
die Sache mit dem Kom¬ 
ma und dem Doppelpunkt 
nicht wären. 


MODIFZIERTER 

INPUT 


Holmes: Watson, Sie ma¬ 
chen mich auf ein Ver¬ 
säumnis meinerseits auf¬ 
merksam. Ich hätte Ihnen 
ans Herz legen sollen, 
COMMODORE WELT 
zu lesen, deren Specials 
neuerdings in zweimona¬ 
tigen Abständen erschei¬ 
nen. Schlagen Sie doch 
in CW 12/87 auf Seite 74 
den Artikel „Computer- 
Fieber“ auf und führen 
Sie sich diesen zu Gemüte 
Watson: Wirklich interes¬ 
sant, die Geschichte. Mit 


SYS 34906 bekommen 
wir unsere Eingabe in den 
Eingabepuffer und von 
dort durch eine PEEK- 
Routine in unsere Va¬ 
riable. 

Holmes: Nur nicht zu 
eilig, lieber Watson. Viel¬ 
leicht lassen sich die 
PEEKs vermeiden. Ich 
denke, wir sollten uns die 
INPUT-Routine, und 
zwar den Teil, der die 
Variablenzuweisung vor¬ 
nimmt, im ROM-Listing 
einmal näher ansehen. 
Watson: Hier ab Adresse 
$9156 ist das, was wir 
suchen. Ein wenig be¬ 
fremdlich erscheinen mir 
allerdings die Abfragen, 
ob es sich um INPUT, 
GET oder READ han¬ 
delt. Sollte das etwa hei¬ 
ßen, daß alle drei Befeh¬ 
le ein und dieselbe Zu¬ 
weisungsroutine benüt¬ 
zen? 

Holmes: Dies ist sehr gut 
möglich. Warum sich ei¬ 
ne Arbeit dreimal ma¬ 
chen, haben sich die Sy¬ 
stemprogrammierer be¬ 
stimmt gefragt. Anstatt 
drei Routinen, die sich 
nur geringfügig vonein¬ 
ander unterscheiden, gibt 
es eine einzige, die die 
Zuweisung für READ, 
GET und INPUT vor¬ 
nimmt. 

Watson: Es bestehen aber 
doch gravierende Unter¬ 
schiede: Der INPUT-Be¬ 
fehl liest den Bildschirm¬ 
inhalt in den Eingabepuf¬ 
fer und kann bis zu 88 
Zeichen erfassen. Der 
GET-Befehl liest aber 
nur ein einziges Zeichen 
aus dem Tastaturpuffer. 
Holmes: Letzteres ist nur 
ein Teil der ganzen Wahr¬ 
heit. Watson, sehen Sie 
sich doch bitte auch den 
ersten Teil der GET-Rou- 
tine an. 

Watson: Stimmt, Sir, das 
Zeichen aus dem Tasta¬ 
turpuffer wird in den 
Eingabepuffer geschrie¬ 
ben. Durch eine daran 
anknüpfende Null wird 
der nachfolgenden Zu¬ 
weisungsroutine signali¬ 
siert, daß nur ein einzi¬ 
ges Zeichen im Eingabe¬ 
puffer zu finden ist. 
Homes: So haben wir 
genau das, was wir brau¬ 


chen. Der Zuweisungs¬ 
teil der GET-Routine 
könnte also ebenso wie 
der der INPUT-Routine 
bis zu 88 Zeichen er¬ 
fassen; mit dem Unter¬ 
schied, daß der GET-Be¬ 
fehl sich durch Trenn¬ 
zeichen wie Kommas 
oder Doppelpunkte nicht 
irritieren läßt. 

Durch Verwendung des 
Eingabeteils der INPUT- 
Routine mit SYS 34906 
und des Zuweisungstei¬ 
les der GET-Routine mit 
POKE 17,64, gefolgt 
von SYS 37210. haben 
wir uns eine optimale Ein¬ 
gabe geschaffen. Der 
POKE-Befehl weist dem 
Eingabeflag in Adresse 17 
die Zahl 64 zu, die der 
Zuweisungsroutine 
SYS 37210 ein GET si¬ 
gnalisiert. Das INPUT- 
Flag dagegen hätte den 
Wert null und das READ- 
Flag den Wert 152. Dies 
soll uns aber zum jetzi¬ 
gen Zeitpunkt nicht wei¬ 
ter interessieren, obwohl 
sicher interessante An¬ 
wendungen hieraus erfol¬ 
gen könnten. 


EINGABEFELDER, 

EINGABEMASKEN, 

TEXTVERARBEI¬ 

TUNGEN 


Watson: Die erste Grund¬ 
lage eines guten Program¬ 
mes ist ein gutes Eingabe¬ 
feld. Erst dadurch wer¬ 
den Dinge möglich, von 
denen ein CI 6 116/ 
Plus/4-User bislang oft 
nur träumen konnte. 
Holmes: Ja. die logische 
Folge eines Eingabefeldes 
sind mehrere Eingabefel¬ 
der, die nicht vereinzelt 
hintereinander abgearbei¬ 
tet werden, sondern zu 
einer Eingabemaske ver¬ 
bunden sind. Falsche 
oder unvollständige Ein¬ 
gaben in einem vorange¬ 
gangenen Feld brauchen 
nicht gesondert nach Ab¬ 
schluß der Eingaben kor¬ 
rigiert werden. 

In einer Eingabemaske 
kann mit dem Cursor 
nach Belieben von Feld 
zu Feld gesprungen wer¬ 
den. Es gibt kein Vorher 
und Nachher mehr. Alles 
ist eines. 
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Einfach mit dem Cursor 
hinfahren und ändern. 

Die Datenbanken, Adreß- 
dateien, Textverarbeitun¬ 
gen oder sonstigen An¬ 
wendungen dieser Technik 
können sich sehen lassen. 
Doch die weitergehende 
Arbeit wollen wir ande¬ 
ren Händen überlassen. 

Wir sollten statt dessen 
zu Scotland Yard auf¬ 
brechen. 

So etwa hätte ein Ge¬ 
spräch zwischen Watson 
und Holmes verlaufen 
können, hätten diese 


Mit unserem Programm 
„Eingabefeld“ steht Ih¬ 
nen eine Routine zur 
Verfügung, die auch Ih¬ 
nen erlaubt, Anwendun¬ 
gen zu erstellen, die in 
punkto Bedienerfreund¬ 
lichkeit den Vergleich 
mit professionellen Pro¬ 
grammen nicht zu scheu¬ 
en brauchen. 


EIGENSCHAFTEN 


Diese Routine ist gedacht 
zum Einbau in eigene Pro¬ 
gramme. Besondere Vor¬ 
teile gegenüber dem 
INPUT-Befehl sind: 

# Die Eingabe ist auf ein 
eindeutig lokalisiertes 
Eingabefeld beschränkt. 
Effekte auf den Rest-Bild¬ 
schirm sind ausgeschlos¬ 
sen. Es gibt also kein ver¬ 
sehentliches Überschrei¬ 
ben oder Löschen des 
Bildschirminhaltes mehr. 
Auch ein Herumirren 

mit dem Cursor ist nicht 
mehr möglich. 

• Die komfortablen Es- 
cape-Sequenzen des Edi¬ 
tors können benutzt wer¬ 
den. Unerwünschte Se¬ 
quenzen, die das Eingabe¬ 
feld zerstören würden, 
wurden eliminiert. Bei 
einigen Editor-Routinen 


heute gelebt und sich für 
unsere Computer inter¬ 
essiert. Die Ergebnisse 
dieser Unterhaltung wol¬ 
len wir in mehreren Pro¬ 
grammen festhalten. 

Eines davon heißt Ein¬ 
gabefeld, ein anderes Ein¬ 
gabemaske. Als vorläufi¬ 
ge Krönung zeigen wir 
Ihnen, wie eine bild¬ 
schirmorientierte Text¬ 
verarbeitung realisiert 
wird. Mehr darüber er¬ 
fahren Sie in den nach¬ 
folgenden Artikeln. 


konnte gar eine Verbes¬ 
serung erzielt werden. 

• Anders als beim nor¬ 
malen INPUT-Befehl eibt 
es mit Kommas und 
Doppelpunkten keine 
Schwierigkeiten. Diese 
Satzzeichen können ohne 
weiteres verwendet wer¬ 
den. 


HANDHABUNG 


Wollen Sie unsere Einga¬ 
beroutine in Ihrem eige¬ 
nen Programm nutzen, so 
brauchen Sie diesem nur 
die Zeilen 100 bis 480 
voranzustellen. Die REM- 
Zeilen können Sie weglas¬ 
sen. Ihr eigenes Programm 
beginnt dann ab Zeile 
520. Zur Lokalisierung 
des Eingabefeldes sind die 
Koordinaten und die Feld¬ 
länge an die Variablen X, 

Y und Z zu übergeben. 

Parameterübergabe: 

X = Spalte des Feld¬ 
anfangs 

Y = Zeile des Feld¬ 

anfangs 

Z = Feldlänge 
F$ = Stringvariable 
FA$ = Markierung des 
Feidanfangs 
FE$ = Markierung des 
Feldendes 


Mit GOSUB 170 rufen 
Sie die Eingaberoutine 
auf. Wünschen Sie ein 
leeres Eingabefeld, so wei¬ 
sen Sie vorher der String¬ 
variablen F$ den Leer¬ 
string zu mit F$=“ “. 
Ansonsten erscheint der 
Inhalt von F$ als Vorga¬ 
be im Eingabefeld. Wer 
sich nicht mit einem Dop¬ 
pelpunkt als Markierun¬ 
gen von Feldanfang und 
Feldende zufriedengeben 
will, kann den Variablen 
FA$ und FE$ nach Belie¬ 
ben andere Zeichen zu¬ 
weisen. Nach erfolgter 
Eingabe stehen die Ein¬ 
gabedaten in Form der 
Variablen F$ zur weite¬ 
ren Verwendung bereit. 


EDITIEREN 


Neben den CURSOR- 
Tasten, der INST-, DEL-, 
HOME- und CLEAR- 
Taste, stehen Ihnen fol¬ 
gende ESCAPE-Sequen- 
zen zur Verfügung: 

ESC-A: Einschalten des 
Einftigemodus. 

Dieser Modus ist norma¬ 
lerweise aktiv, sofern er 
nicht mit ESC-T ausge¬ 
schaltet wurde. 

ESC-C: Einschalten des 
Überschreibemodus. 

ESC-O: Flags ausschalten. 
Das Quote-Flag braucht 
nicht ausgeschaltet zu 
werden, da es automa¬ 
tisch desaktiviert wird. 

ESC-J: Cursor an den 
Feldanfang. 

Entspricht dem Druck 
der HOME-Taste. 

ESC-K: Cursor an das 
Ende der Eingabe. 

Im Unterschied zur nor¬ 
malen Editierfunktion 
sitzt der Cursor nicht auf 
dem letzten Buchstaben, 
sondern springt um eine 
Position weiter nach 
rechts, sofern der letzte 
Buchstabe nicht am 
Feldende liegt. 

ESC-P: Löschen bis zur 
Cursorposition. 

Im Unterschied zur nor¬ 
malen Editierfunktion 
wird der Buchstabe un¬ 


ter dem Cursor nicht 
mehr gelöscht. Außer¬ 
dem wandert der nicht 
gelöschte Rest an den 
Feld an fang. 

ESC-Q: Löschen ab 
Cursorfunktion. 

Da die GET-Routine kei¬ 
nen sichtbaren Cursor 
hervorbringt, wird dieser 
mit PEEK und POKE 
erzeugt und blinkt im 
Unterschied zum ge¬ 
wohnten Cursor nicht. 
Zwei Gründe sprachen 
für einen nichtblinken¬ 
den Cursor: Zum einen 
ist er mit geringerem 
Aufwand zu realisieren, 
zum anderen empfinden 
einige unserer Leser das 
Blinken als störend. 


PROGRAMM¬ 

BESCHREIBUNG 


Zeilen 100 bis 130 

Hier findet eine Initiali¬ 
sierung folgender Varia¬ 
blen statt: 

EC$ = Escape-Code 
chr$(27) 

V$ = Cursor an Feld¬ 
anfang 

MO$= Editiermodus. Es 
stehen zur Wahl: 
der Einfüge- und 
der Überschreib¬ 
modus. MO$ 
wird durch Ein¬ 
schalten des be¬ 
treffenden Modus 
bei der Eingabe 
ständig aktuali¬ 
siert. 

IN$ = Tasten mit Son¬ 
derbehandlung. 
RETURN, HOME 
und ESCAPE wer¬ 
den nicht wie die 
anderen Tasten ein¬ 
fach auf den Bild¬ 
schirm ausgegeben, 
sondern gesondert 
abgehandelt. 

ES$ = Zugelassene Es- 
cape-Sequenzen. 

L$ = Stringvariable, die 
bei der Fenster¬ 
definition Ver¬ 
wendung findet. 

Sie enthält zwei¬ 
mal Cursor nach 
links, um auf die 
letzte Feldposi¬ 
tion zu gelangen, 
Setzen des Feld- 


ß.m.D 



mit Pfiff 

Eindeutig lokalisierte Eingabefelder mit 
komfortablen Editiermöglichkeiten und Akzeptierung 
von Kommas und Doppelpunkten können auch 
Sie leicht in Ihre eigenen Programme einbauen. 
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endes und Feld löschen. 

Zeile 510 

Sprung ins Hauptpro¬ 
gramm. 

Zeilen 170 und 180 

Fensterdefinition. Der 
CHAR-Befehl positio¬ 
niert den Cursor und 
setzt die Feldanfangs- 
Markierung. Der PRINT- 
Befehl setzt die linke 
Grenze des Eingabefel¬ 
des, positioniert mittels 
SPC-Befehl den Cursor 
auf den Platz der Mar¬ 
kierung für den rechten 
Rand, schaltet das Scrol¬ 
ling aus und setzt die 
Feldende-Markierung. 
Nach der Variablen LS, 
die die Fensterdefinition 
beendet, wird der in F$ 
abgelegte Text ausgege¬ 
ben, der Cursor auf den 
Feldanfang gesetzt und 
die Einschaltung des ak¬ 
tuellen Editiermodus 
vorgenommen. 

Zeilen 220 und 230 

Zeicheneingabe. Aus der 
aktuellen Cursorzeile, 
der Cursorspalte und 
dem Anfang des Text¬ 
bildschirmes wird die 
Speicheradresse AX der 
augenblicklichen Cursor¬ 
position errechnet. Der 
erste POKE-Befehl setzt 
das REVERS-Bit und 
macht so den Cursor 
sichtbar. Nach dem Ein¬ 
lesen der gedrückten 
Taste mittels GETKEY 
wird der Cursor durch 
Zurücksetzen des 
REVERS-Bit wieder un¬ 
sichtbar gemacht. 

Zeilen 270 bis 300 

Zeichenauswertung. Die 
INSTR-Anweisung stellt 
fest, ob das eingelesene 
Zeichen normal abgear¬ 
beitet werden soll, oder 
eine Sonderbehandlung 
verdient. In Zeile 280 
findet gegebenenfalls die 
entsprechende Verzwei¬ 
gung statt. Im Regelfall 
wird die Zeile 290 abge¬ 
arbeitet, die das Zeichen 
auf den Bildschirm aus¬ 
gibt, den Anführungs¬ 
zeichenmodus aufhebt 
und den Rücksprung zur 
nächsten Zeichenausgabe 
veranlaßt. 


Zeile 300 bearbeitet die 
HOME-Taste. Da zwei¬ 
maliges Drücken der 
HOME-Taste die Fenster¬ 
definition normalerweise 
aufheben würde, wird 
HOME durch die Escape- 
Sequenz ESC-J ersetzt. 

Dies geschieht hier durch 
die Zuweisung X$=“J“ 
und den Sprung in die 
ESC-SEQUENZ-Bearbei- 
tung. 

Zeilen 340 bis 370 

Zeichenübernahme. Wird 
die RETURN-Taste betä¬ 
tigt, sollen die Eingabe 
abgeschlossen und die 
Daten an die Variable F$ 
übermittelt werden. Die¬ 
ses geschieht durch das 
Setzen des Cursors an den 
Feldanfang in Zeile 340, 
die RETURN-Vorgabe 
durch POKEn in den 
Tastaturpuffer in Zeile 
350,einen modifizierten 
INPUT in Zeile 360 und 
das Aufheben der Fen¬ 
sterdefinition in Zeile 370. 
Der erste SYS-Befehl in 
Zeile 360 bewirkt die 
Übernahme der eingege¬ 
benen Zeichen in den Ein¬ 
gabepuffer. 

Der POKE-Befehl setzt 
das G ET-Flag. Damit 
kann der zweite SYS-Be¬ 
fehl, der für die Überga¬ 
be der im Eingabepuffer 
abgelegten Zeichen an 
die Variable F$ verant¬ 
wortlich ist, auch Kom¬ 
mas und Doppelpunkte 
wie normalen Text be¬ 
handeln. Die CHAR-An- 
weisung in Zeile 370 hebt 
die Fensterdefinition auf, 
die PRINT-Anweisung 
schaltet das Scrolling und 
den Überschreib-Modus 
wieder ein. Dem Rück¬ 
sprung in das aufrufende 
Programm steht somit 
nichts mehr im Wege. 

Zeilen 410 bis 470 

Bearbeitung von ESCAPE- 
Sequenzen. Mit GETKEY 
wird der dem ESCAPE- 
Code folgende Tasten¬ 
druck eingelesen. Sollte 
dieser in der Variablen 
ES$ vorgesehen sein, so 
findet in Zeile 420 die 
entsprechende Verzwei¬ 
gung statt. 

Anderenfalls erfolgt der 
Rücksprung zur Zeichen- 


EINGABEFELD MIT PFIFF 


10 rem eingabefeld= ::= ==== ;= == ===== c16 <eg> 

20 rem Cp) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by alfons mittelmeyer <cg> 
50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem c16/116/plus4 <ki> 

100 ec$=chr$C 27):v$=ec$+"j":mo$=ec 
$+"a" <ki> 

110 in$=chr$C13)+ec$+chr$C19):es$= 
"acjopqk" <ih> 

120 l$=chr$(157)+chr$(157)+ec$+"b" 

+chr$(147) <ch> 

130 fa$=":":fe$=":":goto520 <ed> 

140 rem-<fi> 

150 rem fensterdefinition <cc> 

160 rem-<mk> 

170 char,x,y,fa$ <jn> 

180 printec$"t"spc(z)ec$"m”fe$l$f$ 
v$mo$; < jg > 

190 rem- <ca> 

200 rem Zeicheneingabe <al> 

210 rem-<da> 

220 ax=3072+40*peek(205)+peek( 202) <fk> 
230 pokeax,peek(ax)or128:getkeyx$: 
pokeax,peekCax)and127 <id> 

240 rem-<ch> 

250 rem Zeichenauswertung <ga> 

260 rem-<ob> 

270 in=instr(in$,x$) <ap> 

280 oningoto340,410,300 <fp> 

290 printx$;:puke203,0:goto220 <ko> 

300 x$="j":goto460 <pk> 

310 rem-<me> 

320 rem zeichenuebernahme <la> 

330 rem-<dk> 

340 printv$ <nn> 

350 poke239,1:poke1319,13 <pg> 

360 sys34906:poke17,64:sys37210f$ <ke> 
370 char,0,0,:printec$"l"ec$"c"; 
:return <on> 

380 rem-<kn> 

390 rem esc-sequenz <co> 

400 rem-<fc> 

410 getkeyx$:in=instr( es$,x$) <he> 

420 oningoto450,450,460,460,440,46 
0,470 <id> 

430 goto220 <ka> 

440 gosub350:goto 170 <cp> 

450 mo$=ec$+x$ <kc> 

460 printec$x$;:goto220 <lk> 

470 printec$x$; :ifpeek( 2024) opeek 
C202)thenprintchr$C29); <ik> 

480 goto220 <lp> 


14 













500 rem hauptprugramm 
520 scnclr 

530 x=10:y=5:z~20:gosub170 
540 printf$:end 

560 rem programmende 


eingabe. Zeile 440 bear¬ 
beitet das Löschen bis zur 
Cursorposition. Mit 
GOSUB 350 wird der 
Text ab Cursorposition 
an die Variable F$ über¬ 
geben. 

Der GOTO-Befehl ruft 
die Eingaberoutine neu 
auf. Die durch F$ vorge¬ 
gebenen Daten erschei¬ 
nen nun am Fensteran- 
tang. Zeile 450 wird bei 
der Modus-Umschaltung 
angesprungen und be¬ 
wirkt die Aktualisierung 
des Editiermodus. Die 
normale Bearbeitung ei¬ 
ner ESCAPE-Sequenz 
findet sich in Zeile 460. 
Der ESCAPE-Code und 
nachfolgender Code wer¬ 
den ausgegeben, worauf 
der Rücksprung zur Zei¬ 
cheneingabe folgt. 

Einen Sonderfall bildet 
ESC-K. Nach der Ausga¬ 
be der ESCAPE-Sequenz 
in Zeile 470 fragen wir 
ab, ob die aktuelle Cur¬ 
sorspalte mit dem rech¬ 
ten Fensterrand zusam- 


Bei vielen Anwendungen, 
besonders bei Dateien, 
sind mehrere Eingaben 
erforderlich, wie Name, 
Vorname, Straße, Wohn¬ 
ort und weiteres. Wer ist 
dabei schon gegen Tipp¬ 
fehler gefeit. Besonders 


<pm> 

<f p> 

<af > 
<pm> 
<al> 
<ba> 

<pp> 

<hp> 
<mo> 

menfällt. Bei Nichtzutref- 
fen geben wir noch ein 
Cursor-nach-rechts aus, 
so daß unser Cursor hin¬ 
ter das letzte Zeichen zu 
liegen kommt und opti¬ 
mal für weiteres Einge¬ 
ben bereit ist. 

Zeilen 520 bis 540 

Hauptprogramm. Ab Zei¬ 
le 520 beginnt Ihr eige¬ 
nes Programm. 

Wir haben drei Programm¬ 
zeilen als Beispiel für den 
Aufruf der Eingaberou¬ 
tine angefügt. Hier wird 
ein Eingabefeld mit der 
Länge von 20 Buchstaben 
ab Spalte 10 und Zeile 5 
definiert. Die eingegebe¬ 
nen Daten erscheinen an¬ 
schließend links oben am 
Bildschirm, da das Schlie¬ 
ßen des Fensters den 
Cursor an die linke obere 
Bildschirmecke setzt. 

In Ihren Programmen 
werden Sie diese Eingabe¬ 
routine bestimmt nicht 
mehr missen mögen. 


ärgerlich ist es, wenn der 
Fehler nicht mehr recht¬ 
zeitig entdeckt wird. 

Zwar ist die falsche Ein¬ 
gabe noch auf dem Bild¬ 
schirm zu sehen, doch der 
Cursor befindet sich be¬ 
reits im nächsten Einga¬ 


befeld. Es gibt daher kein 
Zurück mehr. Entweder 
kann eine Korrektur 
nach erfolgter Erfassung 
aller Datenfelder vorge¬ 
nommen werden, oder es 
ist gar ein Wechsel des 
Menüs erforderlich: 
Eingabemenü verlassen, 
Änderungsmenü anwäh¬ 
len, Datensatz suchen 
und ändern. Darauf wie¬ 
der Änderungsmenü ver¬ 
lassen, Eingabemenü wäh¬ 
len und weitererfassen. 
Eine ziemlich umständli¬ 
che Geschichte. 


EINGABEMASKE 


Von professionellen An¬ 
wendungen sind wir ande¬ 
res gewohnt. Tritt hier 
der nämliche Fall auf, so 
brauchen wir nur eine 
Taste zu drücken, und 
schon befindet sich der 
Cursor wieder im vorigen 
Eingabefeld. Wir können 
von Feld zu Feld sprin¬ 
gen, wie es uns beliebt. 
Das ist sicher der Ideal¬ 
fall. Warum sollten wir 
also nicht auch professio¬ 
nelle Eingabemasken pro¬ 
grammieren? Weil es viel¬ 
leicht zu schwierig wä¬ 
re? Mit unserem Eingabe¬ 
feld als Grundlage gehört 
gar nicht mehr allzu viel 
dazu. 


STEUERUNG DER 
MASKENEINGABE 


Außer den bereits vorge¬ 
stellten Steuertasten 
beim Eingabefeld benöti¬ 
gen wir noch zwei weite¬ 
re: eine zum Springen in 
das vorherige Feld und 
eine zum Abschließen der 
Maskeneingabe. Es kann 
sein, daß Einträge in wei¬ 
tere Felder sich erübrigen, 
obwohl wir uns noch 
nicht im letzten Eingabe¬ 
feld befinden. Aus Sym¬ 
metriegründen haben wir 
für den Sprung in das 
nächste Eingabefeld, wo¬ 
für bereits die Return- 
Taste bereitsteht, noch 
eine Cursor-Taste ver¬ 
wendet. 

Cursor oben 
= vorheriges Feld 
Cursor unten 
= nächstes Feld 


a.m. □ 


Die Maske 
macht Musik 

Von unserem Eingabefeld ist es zu einer 
Maskeneingabe, bei der nach Belieben von Feld zu 
Feld gesprungen werden kann, nur mehr ein kleiner 
Schritt. Mit drei GOSUBs und einigen DATA-Zeilen 
realisieren Sie bereits Ihre individuelle 
Eingabemaske. 


Return 

= nächstes Feld 
Control C 
= Abschluß 

Control C bewirkt das¬ 
selbe wie Return oder 
Cursor nach unten im 
letzten Feld. 

Im Programm haben wir 
in Zeile 520 die Variable 
INS um die genannten 
Tasten-Codes erweitert. 
Eine entsprechende Er¬ 
gänzung mußte daher in 
der Zeile 280 stattfinden, 
wo nun, ebenso wie bei 
Return, eine Verzwei¬ 
gung auf den Feldab¬ 
schluß auch bei den da¬ 
zugekommenen Steuer¬ 
tasten stattfindet. Die 
Variable MA$ in Zeile 
520 enthält die Codes für 
die neu hinzugekomme¬ 
nen Feldsteuertasten. Am 
Ende der Zeile erfolgt 
der Sprung auf das neue 
Hauptprogramm. Damit 
sind die Vorbereitungen 
abgeschlossen, die Mas¬ 
kenroutine kann folgen. 


MASKENROUTINE 


Die Maskeneingabe be¬ 
steht aus zwei Teilen, der 
Ausgabe und der Eingabe. 
Bevor mit der Eingabe be¬ 
gonnen wird, sollen alle 
Felder auf dem Bildschirm 
sichtbar sein. Besonders 
im Änderungsmodus ist 
die Übersicht über den 
Inhalt aller Felder wün¬ 
schenswert. 

Auch bei noch leeren 
Feldern im Eingabemo¬ 
dus erhöht die Informa¬ 
tion über die existieren¬ 
den Felder und deren 
Lage die Übersicht. In 
Zeile 530 werden deshalb 
durch eine Laufschleife 
von Null bis M und 
Sprung in die Ausgabe¬ 
routine des jeweiligen Fel¬ 
des alle Felder ausgegeben. 
M'ist die Feldanzahl mi¬ 
nus eins. 

Die Zeilen 620 und 630 
sind für die Ausgabe des 
jeweiligen Feldes F$(I) 
mit den Koordinaten 
X(I) und F$(I) verant¬ 
wortlich. Im Ünterschied 
zur Zeile 180 kann hier 
das Setzen des Feldendes 
wegfallen, da eine Ein¬ 
gabe noch nicht stattfin- 
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den soll. Am Ende der 
Zeile 530 wird 1 mit 
Null initialisiert, als Zei¬ 
chen dafür, daß wir uns 
jetzt im ersten Eingabe¬ 
feld befinden. 

In den Zeilen 540 und 
550 findet eine Parame¬ 
terübergabe für das uns ' 
bereits bekannte Eingabe¬ 
feld statt. Mit GOSUB 
170 erfolgt die Eingabe, 
mit F$(I)=F$ die Daten¬ 
übergabe an das jeweilige 
Feld. Daraufhin überprü¬ 
fen wir den zuletzt getä¬ 
tigten Tastendruck und 
nehmen in Zeile 570 die 
entsprechende Verzwei¬ 
gung vor. Bei Cursor nach 
unten geht es, wie auch 
bei einem Return, weiter 
im Programm. In Zeile 
580 wird der Feldindex 
um eins erhöht, und so¬ 
fern wir uns noch nicht 
im letzten Feld befanden, 
erfolgt nach Sprung auf 
Zeile 540 die Eingabe 
des nächsten Datenfeldes. 
Bei Cursor nach unten 
erniedrigen wir in Zeile 
600 den Feldindex um 
eins, sofern wir nicht 
schon im ersten Daten¬ 
feld angelangt waren. Bei 
Control C erfolgt der Ab¬ 
schluß in Zeile 590. 

Damit ist die Maskenein¬ 
gaberoutine fertig. Um 
Ihnen das Programmie¬ 
ren zu erleichtern, haben 
wir für Sie in den Zeilen 
680 bis 700 noch zwei 
weitere Routinen bereit¬ 
gestellt, mit deren Hilfe 
Sie bequem die Felddaten 
aus Datazeilen überneh¬ 
men können. 

Wir unterscheiden hierbei 
zweierlei Arten von Da¬ 
ten. Das eine sind die 
Feldparameter, wie sie in 
den Zeilen 800 bis 820 
zu finden sind. Je drei 
Zahlen bestimmen Lage 
und Länge des jeweiligen 
Feldes. In den Zeilen 
700 und 710 werden 
X(I), Y(I) und Z(I), ent¬ 
sprechend Bildschirmspal¬ 
te, Bildschirmzeile und 
Feldlänge, eingelesen, bis 
die Zahl Minus Eins das 
Ende der Daten signali¬ 
siert. 

Leere Felder sind nicht 
besonders informativ. Be¬ 
nötigt werden Erläute¬ 
rungen, was in die Felder 


einzutragen ist. Diese 
Daten, Feldbeschriftun¬ 
gen und sonstiger Text 
finden sich in den Zeilen 
750 bis 790. Die beiden 
Zahlen sind die Bild¬ 
schirmkoordinaten, dar¬ 
auf folgt der Text. Die 
Zahl Minus Eins markiert 
wiederum das Ende. 

Die Routine in den Zei¬ 
len 680 und 690 veran¬ 
laßt die Textausgabe. 

Wie in den Zeilen 830 bis 
860 zu sehen ist, gestaltet 
sich der Aufbau einer 
maskenorientierten Ein¬ 
gabe sehr einfach. 

HAUPTPROGRAMM 

In Zeile 830 löschen wir 
den Bildschirm und schal¬ 
ten den Kleinschreib¬ 
modus ein. In Zeile 840 
definieren wir uns zur 
Abwechslung einmal an¬ 
dere Markierungen für die 
Kennzeichnung von Feld¬ 
anfang und Feldende. 

Mit einem RESTORE 
und einem GOSUB sind 
die Feldparameter schnell 
eingelesen. Genauso 
schnell bekommen wir in 
Zeile 850 die Feld-Erläu¬ 
terungen mit einem 
RESTORE und einem 
GOSUB auf den Bild¬ 
schirm. Für die Masken¬ 
eingabe benötigen wir 
jetzt nur noch einen 
GOSUB530. Zur Über¬ 
prüfung geben wir die er¬ 
faßten Daten in Zeile 
860 auf den Bildschirm 
aus. 

EINBAU IN DAS 
EIGENE PROGRAMM 

Ersetzen Sie unser Haupt¬ 
programm durch Ihre ei¬ 
gene Anwendung, so 
stehen Ihnen mit den 
drei genannten GOSUB- 
Routinen die Mittel zur 
Verfügung, eine profes¬ 
sionelle Maskeneingabe 
auf einfache Weise zu rea¬ 
lisieren. Sie brauchen nur 
noch für die Übergabe 
der Daten an die Varia¬ 
blen F$(I) zu sorgen. 

Wir sind bereits gespannt, 
wann wir Ihre Anwen¬ 
dung mit Eingabemaske 
zur Veröffentlichung zu¬ 
gesandt bekommen, a.m.n 


EINGABEMASKE: 


10 rem da tenmaske“====*“ 16 

20 rem Cp) commodore weit team 
30 rem — 

40 rem (c) by alfons mittelmeyer 
50 rem 
60 rem 

70 rem basic v3.5 

80 rem c16/116/plus4 

90 rem —- 

100 ec$“chr$(27):v$-ec$+"j":mo$-ec 

$+"a" 

110 in$-chr$(13)+ec$+chr$(19);es$- 
"acjopqk" 

120 l$=chr$(157)+chr$(157)+ec$+"b" 
+chr$(147) 

130 fo$-":":fe$“":":goto520 

140 rem - 

150 rem fensterdefinition 

160 rem - 

170 char,x,y,fa$ 

180 printec$"t"spc(z)ec$"m”fe$l$f$ 
v$mo$; 

190 rem - 

200 rem Zeicheneingabe 

210 rem - 

220 ax=3072+40*peek(205)+peek(202) 
230 pokeax,peek( ax)or128:getkeyx$: 
pokeax,peek(ax)and127 

240 rem - 

250 rem zeichenouswertung 

260 rem - 

270 in=instr(in$,x$) 

280 oningoto340,410,300,340,340,34 
0 

290 printxS;:poke203,0:goto220 
300 x$="j":goto460 

310 rem - 

320 rem zeichenuebernahme 

330 rem - 

340 printvf 

350 poke239,1:poke1319,13 
360 sys34906:poke17,64:sys37210f$ 
370 char,0,0,:printec$"l"ec$"c"; 
:return 

380 rem - 

390 rem esc-sequenz 

480 rem - 

410 getkeyx$:in=instr(es$,x$) 

420 oningoto450,450,460,460,440,46 
0,470 

430 goto220 

440 gosub350:goto170 

450 mo$=ec$+x$ 

460 printec$x$;:goto220 
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<oj> 

<no> 

<dj> 

<fp> 

<ak> 


<fj> 

<cf> 

<gk> 

<dg> 

<mn> 

<ea> 


470 printec$x$; : if peek( 2024) opeek 
(202)thenprintchr$( 29) ; <ik> 

400 goto220 < lp> 

490 rera_j^^---“-»~-«~==========« < pm > 

500 rem maskeneingabe <le> 

510 rem ========================== <af> 

520 ma$-chr$(17)+chr$( 145)+chr$(3) 
:in$-in$+ma$:goto670 <oj> 

530 fori=0tom:gosub620:next:i=0 <no> 

540 x=x(i):y-y(i) :z =z(i) <dJ> 

S50 f$=f$(i):gosub170:f$(i)=f$ <f D > 

560 f$(i)=f$:in=instr(ma$,x$) <gk> 

570 oningoto560,600,590 <i B > 

580 i=i+1:ifi<=mthen540 <eo> 

590 return <co> 

600 i-i -1 :ifi< 0 theni -0 < cn! > 

610 goto540 <ph> 

620 char,x(i),y(i),fa$ <kn> 

630 printec$"t"spc(z(i))ec$"m"ec$" 
p"fe$chr$(19)f$(i):return <fj> 

640 rem- <cf> 

650 rem routinBn fuer felddatas <gk> 

660 rem- <dg> 

670 goto?S0 < mn > 

600 reada^ountila-'-l <ea> 

690 readb:reada$:char,a,b,a$:reada 
:loop:return <fc> 

700 i-0:reada:dountila--1 <fo> 

710 x(i)-a:ready(i):readz(i).reada 
:i=i+1:loop:m=i-1:return <£P> 

720 rem —--=============-™ <ai> 

730 rem hauptprogramm <nf> 

750 data 0,3,"Name0,4,"Vorname: 

<nn> 

760 data 0,5,"Strasse:", 0 , 6 ,"Haus- 

Nr,: " <lb> 

770 data 0,7, "P L Z:",0,0,"Wohnort 

<lk> 

700 data 0,9,"Vorwahl 0 , 10 ,"Tel- 
Nr. ; " <hf> 

790 data 0,11,"Geb.Dat :",-1 <dj> 

000 data 10,3,20,10,4,20,10,5,20 <le> 

010 data 10,6,5,10,7,4,10,0,20 <cl> 

820 data 10 , 9 , 5 , 10 , 10 , 12 , 10 , 11 , 10 , 

-1 <bd> 

830 scnclr:printchr$(14) <lk> 

040 fa$-"> H :fe$-”<":restore000:gos 
ub700 <gk> 

850 restore750:gosub680:gosub 530 <ae> 
860 9cnclr:fori=0tom:printf$( i):ne 

xt <ah> 

070 rem —---< bn> 

880 rem programmende <aa> 

890 rem 


wie die Profis 


Freie Beweglichkeit des Cursors auf dem 
Bildschirm, Scrollen bei Erreichen des Bildschirm¬ 
randes und diverse Befehle zum Blättern zeichnen eine 
gute Textverarbeitung aus. Mit einem modifizierten 
INPUT können auch von externen Geräten Daten 
eingelesen werden. 


Eine Textverarbeitung zu 
programmieren, setzt ein 
gewisses Maß an pro¬ 
grammierte chnischem 
Können voraus. Auch 
wenn solche Programme 
fehlerfrei arbeiten, rich¬ 
tig speichern und laden, 
mangelt es doch vielen 
an Bedienerkomfort. 
Häufig lassen sich die Zei¬ 
len nur hintereinander 
eingeben. Soll eine be¬ 
reits erfaßte Zeile korri¬ 
giert, sollen Zeilen ge¬ 
löscht oder eingefügt 
werden, ist nicht selten 
ein Wechseln in ein Än¬ 
derungsmenü erforderlich. 
Anwenderfreundlich wä¬ 
ren dagegen die freie Be¬ 
weglichkeit des Cursors, 
das Auf- und Abwan- 
dem in den Zeilen, das 
Scrollen bei Erreichen 
der Bildschirmgrenzen. 
Daß dies auch in BASIC 
möglich ist, zeigt das 
Programm SCREEN- 
TEXT. 

STEUER¬ 

FUNKTIONEN 

Neben Cursor auf und ab 
gibt es zusätzliche Steuer¬ 
funktionen: 

ESCI 

= Zeile ein fügen 
ESC D 

= Zeile löschen 
Cbm N 

= Zeile einfügen 
Cbm Y 

= Zeile löschen 
Control E 

= 15 Zeilen rückwärts 
Control X 

= 15 Zeilen vorwärts 
ESC E 

= Textanfang 
ESC X 
= Textende 


ZEILENVERWALTUNG 

Bemerkenswert ist die 
Zeilenverwaltung. Sie 
sorgt dafür, daß bei Ein¬ 
fügen oder Löschen von 
Zeilen nicht alle folgen¬ 
den Zeilendaten F$(ZI) 
entsprechend verschoben 
zu werden brauchen. Die¬ 
ses nähme zu viel Zeit in 
Anspruch und wäre des¬ 
wegen ineffizient. 

Die Zeilenverwaltung 
funktioniert mit zwei 
Stapeln, die in Form ei¬ 
nes Strings realisiert sind. 
ST$ enthält in Form von 
Character-Codes die Num¬ 
mern der noch zur Verfü¬ 
gung stehenden Daten¬ 
sätze, T$ die Nummern 
der bereits verwendeten 
Zeilenfelder. 

Wird eine Zeile an- oder 
eingefügt, so wird für sie 
das Feld F$(ZI), dessen 
Nummer an der letzten 
Stelle von ST$ abgelegt 
ist, hergenommen. Die¬ 
ser Code wird aus dem 
Stapel ST$ beseitigt und, 
gemäß der Position ZE 
der Zeile im Text, an die 
richtige Stelle im Stapel 
TSS eingebaut. Die An¬ 
zahl der verbleibenden 
Felder LS wird um die 
Zahl Eins erniedrigt, die 
Anzahl der Textzeilen 
ZM um Eins erhöht. Ver¬ 
gleichen Sie hierzu am 
besten die Zeilen 540 
bis 560 und 600 bis 640. 

LESEN VON 
EXTERNEM GERÄT 

Zum Einlesen der Daten 
von Datasette oder Disket¬ 
te verwenden wir wieder 
die modifizierte INPUT- 
Anweisung, die wir be- 
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TEXTVERARBEITUNG 


10 rem texteditor-c16 <im> 

20 rem (p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by alfons mittelmeyer <cg> 
50 rem < P d> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem c16/116/plus4 <ki> 

90 rem ========================= = = < jg > 

100 rem- < °P > 

110 rem Zeicheneingabe < pe > 

120 rem- < P° > 

130 gosub1990:printchr$C14);:goto1 

280 < ß° > 

140 ax=3072+40*peek(205)+peek( 202) <gk> 
150 pokeax,peek(ax)or 128 :getkeyx$: 
pokeax, peekC ax)and 127:return <fn> 

160 rem- - 

170 rem Zeichenauswertung 2 <ha> 

180 rem -~ <m P > 

190 gosub650:poke203,0:char,0,bz," 
i» <mk> 

200 printchr$C 27) "t"spc(39)chr$( 27 
)"b"chr$( 27) "m"chr$( 27) "a"l$f$(zi) <hh> 
210 in=instr(in$,x$) <eb> 

220 oningoto250,270,240,250,250,25 
0,250,250,250,250 <£ n> 

230 printx$;:poke203,0:gosub140:go 
to210 <hd> 

240 x$=chr$( 27) +"j":goto230 <pd> 

250 printchr$( 27) "j":gosub420 <pm> 

260 goto370 <ah> 

270 getkeyx$:in=instr(es$,x$):ifx$ 

= "p"thengosub420:x$="":goto 190 <nb> 

280 ifin=0thengosub140:goto210 <ff> 

290 ifin<5thenprintchr$( 27)"j":gos 
ub420:goto490 <nf> 

300 print.chr$( 27) x$; <eh> 

310 ifx$="k"andpeek(2024)<>peek( 20 
2)thenprintchr$(29); <dl> 

320 gosub140:goto210 <pn> 

330 rem- <dK> 

340 rem Zeichenauswertung 1 <hk> 

350 rem- <ie> 

360 gosub 140 :in=instr( in$,x$) <ih> 

370 oningoto830,480,190,690,760,93 
0,880,1180,1270,1520 <g b> 

380 goto190 <id> 

390 rem-<f 

400 rem input <jn> 

410 rem--<oa> 

420 poke239,1:poke1319,13 <jd> 

430 sys34906:poke17,64:sys37210f$( 
zi) < lj > 

440 char,0,bz,"":printchr$(27)"l"c 
hr$(27)"c";:return <ln> 

450 rem- <ni> 

460 rem esc-sequenzen <be> 


470 rem- ” <ia> 

480 getkeyx$:in=instr( es$,x$) <pf> 

490 oningoto880,930,1040,1110 <la> 

500 ifin=0then360 <af> 

510 poke239,2:poke1319,27:poke1320 
,asc(x$):x$="":goto190 <jk> 

S20 rem- < P2 > 

530 rem zeile einfuegen <ak> 

540 rem- <e g> 

550 ls=ls-1:zm=zm+1 <hb> 

560 ze$=right$(st$,1):st$=left$(st 
$,ls) <in> 

570 ts$=left$(ts$,ze)+ze$+right$t t 
s$,zm+1-ze):gosub650:f$C zi)="":ret 
urn <hl> 

580 rem-<ha> 

590 rem zeile loeschen <jc> 

600 rem-<hm> 

610 zi=asc(mid$(ts$,ze+1,1)) :ls=ls 
+1:zm=zm-1 <ni> 

620 ze$=mid$(ts$,ze+1,1):st$=st$+z 

e$ <bn> 

630 ts$=left$( ts$,ze)+right$( ts$,z 

m+2-ze) <ma> 

640 f$( zi)="":return <oj> 

650 zi=asc(mid$(ts$,ze+1,1)):retur 
n <mi> 

660 rem- < jj > 

670 rem Cursor down <gh> 

680 rem- <ef> 

690 ifze=zmthen360 <ae> 

700 ze=ze+1 <cf> 

710 printx$;:ifbz<24thenbz=bz+1 :go 
to360 <fp> 

720 x$="":goto190 <Tk> 

730 rem-<de> 

740 rem Cursor up <ea> 

750 rem-<ch> 

760 ifze=1then360 <oo> 

770 ze=ze-1:printx$; <dh> 

780 ifbz>0thenbz=bz-1:goto360 <bp> 

790 printchr$C 27)"w";:goto720 <cb> 

800 rem-<bn> 

' 810 rem return-taste <bh> 

820 rem-<me> 

830 ifze<>zmthen700:elseifls=1then 
360 <a E > 

840 ze=ze+1:gosub550:x$=c4$:goto71 
0 <mh> 

850 rem-<ip> 

860 rem esc-i <ea> 

870 rem- < gg > 

880 ifls=1then360:elsegosub550 <gf> 

890 printehr$(27)"i";:goto360 <bm> 

900 rem- < fj > 

910 rem esc-d <pa> 

920 rem- - 

930 printchr$C 2?)”d"; <ei> 
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TEXTVERARBEITUNG 


2 


948 ifzm=1then36B <nc> 

950 gosub610 <gl> 

960 ifze>zmthenx$=chr$( 145) :goto77 
0 <ho> 

970 if(ze+24-bz)>zmthen360 <bm> 

980 zb=ze:ze=ze+24-bz:gosub650 <oc> 

990 char,0,24,"":printchr$(27)"t"c 
hr$(27)"m"spc(39)chr$(27)"b"chr$(2 
7)"j"f$(zi); <gi> 

1000 ze=zb:goto720 <km> 

1010 rem- <ga> 

1020 rem esc-x <hg>- 

1030 rem-<oe> 

1040 bz=zm-1:ifbz>24thenbz=24 <bn> 

1050 ze=zm-bz:prxntchr$( 147)<:hr$(2 
7) "in"; <ph> 

1060 i = ze:forze=itnzm:gosub650:pri 
ntchr$(27)”q"f$( zi):next <nd> 

1070 ze-zm:x$="”:goto190 <Kli> 

1080 rem-<fh> 

1090 rem esc-e <pg> 

1100 rem-<om> 

1110 i=zm:ifi>25theni=25 <co> 

1120 printchr$(147)chr$(27)"m”; <pb> 
1130 forze=1 toi:gosub650:printchr$ 

(27)"q"f$( zi):next:printchr$(27)"1 

<pm> 

1140 bz=0:ze=1:x$="":goto190 <hf> 

1150 rem-<cf> 

1160 rem ctri-x <ef> 

1170 rem-<dg> 

1180 ifze-bz*25>zmthen360 <nf> 

1190 ze=ze-bz+15:ee=ze+24:ifee>zmt 
henee~zm <mo> 

1200 printchr$(147)chr$(27)"m"; <ec> 

1210 i=ze:forze-itoee:goaub650:pri 
ntchr$(27)"q"f$(zi):nex t:bz=0 <ce> 

1220 printelir$( 27) "1"; <ng> 

1230 ze=i:x$="":goto190 <jo> 

1240 rem-<id> 

1250 rem ctrl-e <bd> 

1260 rem-<hu> 

1270 ze=ze-bz-15:ifze<2then1110:ei 
se1200 <nm> 

1280 rein ========================= <jh> 

1290 rem initialisierung <jf> 

1300 rem ========================= <ma> 

1310 rem maximale Zeilenzahl <ip> 

1320 rem ist bei 16 kb Speicher- <bk> 
1330 rem platz entsprechend <cf> 

1340 rem anzupassen <fb> 

1350 mf=2S3:rem maximale zeilenzah 
1 <ph> 

1360 rem-<db> 

1370 dimf$(mf-1) <lg> 

1380 in$=chr$(13)+chr$(27)+chr$(19 
)+chr$(17)+chr$(145)+chr$(183)+chr 
$(170)+chr$(24) <kd> 


1390 in$^in$+chr$(5)+chr$(3) <ng> 

1400 es$="idxepacjoqk":l$=chr$(147 
):goto1520 <gb> 

1410 rem- < bg> 

1420 rem laden G neuer text <ba> 

1430 rem-<nj> 

1440 st$="":fori=mfto1step-1 <ec> 

1450 st$=st$+chr$(i):next <hn> 

1460 ts$=chr$(0)+chr$(0)+chr$( 0) <el> 
1470 hz=0:zm=1:ze=1:ls~mf <pe> 

1480 zi=0:f$(zi)="":return <pf> 

1490 rem-<kj> 

1500 rem menue <gk> 

1510 rem-<dl> 

1520 gosub1650 <hk> 

1530 print:printspc(5)"1 = Neuer T 
ext" <ac> 

1540 printspc(5)"2 = Text Aendern <oi> 

1550 printspcl5)"3 = Drucken"- <gb> 

1560 printspc(5)"4 - Laden von Kas 
sette" <pi> 

1570 printspcfS)"5 = Speichern auf 
Kassette" <ib> 

1580 printspct5)"6 = Laden von Ois 
kette" <pa> 

1590 printspc(5)"7 = Speichern auf 
Diskette" <da> 

1600 print:printspc(5)"0 = Ende" <ga> 

1610 print:print" - 

< bf > 

1620 print:print" (Editieren beend 
en = Control C)":print <dm> 

1630 printchr$(27)"j";:gosub140:if 
x$<"0”orx$>"7"then1630 <ck> 

1640 onval(x$) + 1 goto 1830,1680,1810 
,1870,1970,1980,1690,1940 <em> 

1650 scnclr:char,3,1,rn$+"Bildschi 
rmorientierter Texteditor"+rf$ <an> 

1660 print:print" - 

<pk> 

1670 return <kh> 

1680 gosub!440:scnclr:x$="":goto 19 
0 <gh> 

1690 gosub1960:openS,8,8,a$+",s,r" <db> 
1700 z=0:poke19,8 <ec> 

1710 gosub1440:ze=0:dountilst<>0 <og> 

1720 poke2035,8:sys65478:sys34906: 
poke17,64 <cj> 

1730 sys37210f$( ze) :^ze = ze+1 : loop <kk> 

1740 close8:poke!9,0:zm=ze:ls=mf-z 
m+1 <od> 

1750 sys6S484 < gj > 

1760 st$=left$(st$,ls) <de> 

1770 ts$=chr$(0) <hn> 

1780 fori=0toze-1 <kn> 

1790 ts$=ts$+chr$(i):next:ze=l <ec> 

1000 ts$=ts$+chr$(0) <nb> 

1810 ifst$=""thengosub1440 <oc> 
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TEXTVERARBEITUNG 


182« x$="" :goto1110 <e,n > 

1830 end <nK> 

1840 rem- <ml> 

1850 rem druckerausgabe <fd> 

1860 rem-7- <i S > 

1870 trap 1890 : open4,4,7 <jt)> 

1880 forze= 1 tozm:gosub650:print#4, 
f$( zi):next:close4:trap:goto 1520 <md> 
1890 char,1,20,rn$+" drucker ansch 
alten und taste druecken"+rf$ < gi > 

1900 getkeya$:resume1880 <fn> 

1910 rem- - 

1920 rem speichern < gj > 

1930 rem- < J C> 

1940 prinfTextname: ? ";:sys34906 
:poke17,64:sys37210a$::openB, 8,8, a 
$+",s,w" <P d> 

1950 forze=1tozm:gosub650:print//8, 
f$(zi):next:close8:goto1520 <do> 

1960 print: input"Textname: M ;a$:re 

turn <fp> 

1970 gosub1960:openB, 1 ,0,a$:goto17 

00 < JP > 

1980 gosub1960:openB,1,1,a$:goto19 
50 ‘ <dc> 

1990 rem nachspann =============== <lk> 

2000 rem - farbcodes/steuercodes * <bd> 

2010 e4$=chr$( 017) :rn$--chr$( 018] <oo> 

2020 rf$=chr$(146) <eo> 

2030 return 

2040 rem ========================= <ge> 

2050 rem 60671 bytes memory <cc> 

2060 rem 05699 bytes program <jd> 

2070 rem 00154 bytes variables <ed> 

2080 rem 00766 bytes arrays <nl> 

2090 rem 11212 bytes strings <am> 

2100 rem 42840 bytes free (0) <ob> 

2110 rem (bei 253 vollen zeilen) <bg> 
2120 rem ========================= <pd> 


reits vom Eingabefeld her 
kennen. Zum Lesen von 
einem externen Gerät 
sind noch ein paar zu¬ 
sätzliche Vorbereitungen 
nötig. 

Nachdem eine Datei mit 
OPEN eröffnet wurde, 
kann noch nicht mit ei¬ 
nem IN PUT eingelesen 
werden. Wenn wir nicht 
INPUT# verwenden wol¬ 
len, so ist noch der Ein¬ 
gabekanal zu öffnen. Das 
Öffnen eines Ausgabe¬ 
kanals mit CMD ist uns 
bekannt. Für das Öffnen 
eines Eingabekanals exi¬ 
stiert kein BAS IC-Befehl, 


jedoch eine Kernel-Rou¬ 
tine. 

Zunächst legen wir die 
Kanalnummer zum Bei¬ 
spiel mit POKE 2035,8 
in die Speicherzelle, de¬ 
ren Inhalt bei einem SYS- 
Aufurf an das X-Register 
übergeben wird. Jetzt 
können wir mit SYS 
65478 die Routine 
CHKIN aufrufen. die den 
Eingabekanal öffnet. 

SYS 34906 liest die Da¬ 
ten vom externen Gerät 
in den Eingabepuffer. 

Die Übergabe mit POKE 
17,64 und SYS 37210F$ 
(ZE) bedarf noch einer 


Vorbereitung, damit kein 
unerwünschtes Bildschirm¬ 
scrollen stattfindet. Hier¬ 
zu ist lediglich in die Spei¬ 
cherzelle 19 ein Wert un¬ 
gleich Null zu POKEn. 

Dies braucht nicht unmit¬ 
telbar vor dem Übernah- 
me-SYS-Aufruf erfolgen, 
sondern kann bereits vor 
CHKIN stattfinden. 
Wichtig ist, daß nach dem 
Abschluß des gesamten 
Einlesevorgangs die Kanä¬ 
le mit SYS 65484 wieder 
geschlossen werden und 
auch der Eintrag in Spei¬ 
cherzelle 19 wieder mit 
POKE 19,0 die Tastatur 
signalisiert. 


WEITERENTWICKLUNG 
AUF WUNSCH 


Die Textverarbeitung 
kann als Konzept für eige¬ 
ne Weiterentwicklungen 


dienen. Ihr fehlen noch 
verschiedene Details, die 
von einem ausgereiften 
System erwartet werden. 
So ist sie lediglich, auf 
40 Zeichen pro Zeile an¬ 
gelegt. ASCII-Texte mit 
mehr als 40 Zeichen pro 
Zeile werden nicht rich¬ 
tig wiedergegeben, ASCII- 
Texte mit mehr als 88 
Zeichen pro Zeile führen 
gar zum Absturz. Es feh¬ 
len diverse Blockverschie¬ 
be-, Such- und Austausch¬ 
befehle. Spezielle Druk- 
kersteuerzeichen können 
auch noch nicht definiert 
werden. 

Falls Sie Interesse an ei¬ 
nem weiterführenden Aus¬ 
bau haben und uns Gestal¬ 
tungsvorschläge unterbrei¬ 
ten, sind wir gerne bereit, 
die Text Verarbeitung Ih¬ 
rem Wunsch gemäß wei¬ 
terzuentwickeln. a.m. □ 


Konto¬ 

führung 

Beim Eintippen mit dem Taschen- oder 
Tischrechner ist schnell eine Fehlbuchung passiert. 
Der Computer erfaßt neben den Summen auch den 
jeweiligen Verwendungszweck und gestattet 
damit Überblick und Kontrolle, sowohl auf dem Bild¬ 
schirm als auch auf dem Papier 


Dieses Programm macht 
es möglich, beliebige Ar¬ 
ten von Konten relativ 
übersichtlich zu führen. 
Die einzelnen Dateien 
werden sequentiell abge¬ 
speichert. Sie sind nach 
Monaten unterteilt. Der 
Umfang einer Datei ist 
durch die Vordimensio¬ 
nierung der Variablen 
auf 100 Buchungen be¬ 
schränkt. Durch Abände¬ 
rung der Zeile 90 kann 
bei Bedarf eine Erweite¬ 
rung vorgenommen wer¬ 
den. 

Nach dem Starten ver¬ 
langt das Programm die 
Eingabe des Datums. 

Dies ist Grundlage für den 
Terminvermerk bei Bu¬ 
chungen. Danach gelangt 
man in das Hauptmenü: 

1) DATEN EINGEBEN 

2) DATEN AUSGEBEN 

3) DATEN AENDERN 

4) PROGRAMMENDE 


Durch Drücken der ent¬ 
sprechenden Zahl gelangt 
man in die Unterprogram¬ 
me. Die Trap-Anweisung 
in Zeile 170 bewirkt, daß 
alle anderen Eingaben 
ignoriert werden. 


1) DATEN EINGEBEN 


Zunächst erscheint die 
Directory der Diskette. 
Wählt man einen der be¬ 
reits vorhandenen Monate 
an, so werden die entspre¬ 
chenden Daten geladen. 
Anschließend gelangt man 
in die Eingabemaske. Hier 
können das Datum der 
Buchung, die Summe 
(Minus steht für Ausga¬ 
ben, Plus muß nicht einge¬ 
geben werden) sowie der 
Verwendungszweck des 
Betrages eingetragen 
werden. 

Will man weiter eingeben, 
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10 rem Kontofuehrung ==========c16 <do> 

20 rem (p) commodore weit team <ho> 

40 rem ( c) by henning Koglin <ia> 

50 rem <pd> 

60 rem basic v3.5 <od> 

70 rem c16/116/p4 <de> 

80 rem floppy + cbm-drucker <pl> 

100 gosub 1660 <fc> 

110 dimd$(100),s(100),v$(100),da$( 

100) <nl> 

120 color0,7,4:color4,7,4:color1,7 
>2 <cm> 

130 scnclr:char1,10,12,"datum (tt. 

mm.jj)":inputdm$:ifdm$=""thendm$=" 

<ka> 

140 rem-<fi> 

150 rem hauptmenue <od> 

160 rem-<mk> 

170 trap170:x=0 < bc > 

180 scnclrrcharl,10,08,"1) daten e 
ingeben" <kb> 

190 charl,10,10,"2) daten ausgeben 


200 char1,10,12,"3) daten aendern" 
210 charl,10,14,"4) programmende" 
220 getz 

230 onzgoto240,460,1140,1650:goto2 
20 

240 rem - 

250 rem daten eingeben 

260 rem - 

270 scnclr:directory:print:print:p 
rint"fuer welchen monat";:inputdt$ 
200 gosub1550 

290 scnclr:printrn$b$b3$b3$"eingab 
e"b$b3$b4$rf$ 

300 char,0,4,"datum der buchung":c 
har,0,6,"summe (+ oder -)" 

310 char,0,8,"Verwendungszweck" 

320 char,18,4,:inputd$(x) 

330 char,18,6,":":inputs(x) 

340 char, 18,8, ":":inputv$(x) 

350 da$(x)=dm$:x=x+1 

360 char,8,24,"weiter eingeben ? ( 

j/n)" 

370 getz$ 

380 ifz$="j"then290 


<ng> 

<Pg> 

<dh> 

<ao> 

<mc> 

<ch> 

<bk> 

<ob> 

<io> 

<pe> 

<eg> 

<dl> 
<le> 
<cf > 
<im> 
<ma> 
<mi> 

<lf> 

<Pg> 

<fk> 


390 ifz$="n"then410 ' <ca> 

400 goto370 < na > 

410 gosub1450 <eb> 

420 goto170 <aj> 

430 rem-< be > 

440 rem untermenue daten ausgeben <dn> 

450 rem-< n i> 

460 ei=0 <l n > 


470 scnclr:charl,10,10,"1) ausgabe 


n"icharl,10,12,"2) einnahmen" 

480 charl,10,14,"3) bilanz";chor1, 
10,16,"4) zurueck" 

490 geta:onagoto530,820,860,170:go 
to490 

500 rem - 

510 rem einnahmen/ausgaben 

520 rem - 

530 scnclr:directory:print:print:p 
rint"fuer welchen monatinputdt$ 
540 gosub1550 

550 scnclr:char1,7,12,"ausgabe auf 
drucker (j/n)":inputjn$ 

560 ifjn$="j"thendr=1:elsedr=0 
570 ifdr=1thenopen4,4 
580 scnclr 

590 if dr=*1 thenprint#4, chr$( 27) chr$ 
(108)chr$(10):print#4:print#4:prin 
t#4 

600 ifei=0thenprintrn$+”a u s g a 
b e n"+rf$:elseprintrn$"e i n n a 
h m e n"rf$ 

610 print:print:poke2022,3 

620 ifdr=1andei=0thenprint#4,chr$( 

18)"a u s g a b e n"chr$(146) 

630 ifdr=1thenprint#4 

640 ifdr=1andei=1thenprint#4,chr$C 

18)"e i n n a h m e n"chr$(146) 

650 ifdr=1thenprint#4 
660 fori=0tox-1 

670 ifei<>1ands(i)<0thengosub730 
680 ifei“lands(i)>0thengosub730 
690 nexti 

700 print"ende der liste !":getkey 
a$:printhe$he$ 

710 ifdr=1thenclose4 
720 dr=0:goto460 

730 print"datum der buchung: "d$(i 

) 

740 print"verwndungszweck"b2$": "v 
$(i) 

750 print"summe"b$b2$": ”s(i)" dm" 
760 print"eintrag der buchung erfo 
lgte am "rn$da$(i)rf$:print 
770 ifdr=1thenprint#4,"datum der b 
uchung: "d$(i):print#4,"Verwendung 
szweck : "v$(i) 

780 ifdr=1thenprint#4,"summe"b$b2$ 
": "s[i)" dm" 

790 ifdr=1thenprint#4,"eintrag der 
buchung am "chr$(18)da$(i)chr$(14 
6):print#4 
800 getkeyr$ 

810 return 
820 ei=1:goto530 

830 rem - 

840 rem bilanz 

850 rem - 


<f c> 

<ng> 

<mj> 

<on> 

<jj> 

<Pg> 

<gj> 

<jf> 

<ln> 

<ca> 

<kk> 

<he> 


<gl> 


<fh> 

<hm> 

<pb> 

<hn> 

<bi> 
<f a> 
<ph> 
<le> 
<ld> 
<ca> 

<OB> 

<pn> 

<ia> 

<mk> 

<hp> 

<ai> 

<of > 


<na> 

<mi> 


<lg> 

<ol> 

<oi> 

<dm> 

<kp> 

<hk> 

<ip> 
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860 trap460:scnclr:directory:print 
:print:print"fuer welchen monat";: 
inputdt$ <mn> 

870 gosub1550 <ok> 

880 scnclr:char1,7,12,"ausgabe auf 
drucker (j/n)":inputjn$ <fm> 

890 ifjn$="j"thendr=1:elsedr=0 <ld> 

900 ifdr=1thenopen4,4 <ib> 

910 scnclr <al> 

920 ifdr=1thenprint#4,chr$(27)chr$ 

( 108) chr$( 10) :print#4:print#4:prin 
t#4 <jn> 

930 printrn$"b i 1 a n z"rf$b5$"da 
tum: "dm$:print:print:poke2022,3 <ka> 

940 ifdr=1thenprint#4,chr$(18)"b i 
1 a n z"chr$(146)b5$"datum: M dm$:p 
rint#4:print#4 <me> 

950 fori=0tox-1 <mi> 

960 gosub1070 <cj> 

970 su=su+s(i) <ph> 

980 nexti <kl> 

990 sm-su*100:su-int( sm+.5):su-su/ 

100 <kp> 

1000 forp=0to39:print; :nextp <kk> 

1010 print:printspc(10)"summe :"ta 
b(31-len(str$(su)))su" dm" <bl> 

1020 ifdr=1thenforp=0to60:print#4, 

"-";:nextp <nk> 

1030 ifdr<>1then1060:elsels=len(st 
r$(su)) <pm> 

1040 print#4:print#4,b$b3$b3$"summ 
e : "chr$(16)right$(str$(43-ls),2)s 
u" dm" <nn> 

1050 ifdr=1thenclose4 <pd> 

1060 getkeya$:su=0:printhe$he$:got 
o460 <fb> 

1070 printd$(i)tab(10)v$(i)tab( 31- 
len(str$(s(i))))s(i)" dm" <ee> 

1080 ifdr<>1thenreturn:eisels=len( 
str$(s(i))) <bl> 

1090 print#4» d$C i)b4$b4$v$( i)chr$( 

16)right$(str$(43-1s),2)s( i)" dm" <ba> 
1100 return <co> 

1110 rem-<kh> 

1120 rem daten aendern <jf> 

1130 rem-<aa> 

1140 trapl140 <gd> 

1150 scnclr:directory:print:print: 
print”fuer welchen monatinputdt 
$ <gg> 

1160 open9,8,9,dt$+",s,r" <ma> 

1170 input#9,x <cc> 

1180 fori=0tox-1 <pb> 

1190 input#9,d$(i) <gc> 

1200 input#9,s(i) <di> 

1210 input#9,v$(i) <df> 

1220 input#9,da$(i) <lg> 

1230 nexti <jh> 


1240 close9 <ol> 

1250 fori=0tox-1 <kl> 

1260 scnclr:printrn$”a e n d e r n 
"rf$ <dd> 

1270 char,0,4,"datum der buchung"+ 
b5$:printd$(i) <ka> 

1280 char,0,6,"summe":printspc( 17) 
s(i) <im> 

1290 char,0,8,"Verwendungszweck":p 
rintspc(6)v$(i) <if> 

1300 char,0,20,rn$+"aendern = a"+b 
5$+"weiter = w"+b5$+"ende = e"+rf$ <fa> 
1310 getq$ <ge> 

1320 ifq$="a"thengosub1400 <dg> 

1330 ifq$="w"then1360 <jd> 

1340 ifq$="e"then1380 < gP > 

1350 goto1310 <ng> 

1360 nexti <kb> 

1370 goto1380 <gl> 

1380 gosub1450 <og> 

1390 goto 170 <nk> 

1400 char,20,4,"":inputd$(i):ifd$( 
i)=""thend$(i)=" " <dn> 

1410 char,20,6,"":inputs(i) <hn> 

1420 char,20,8,"":inputv$(i):ifv$( 
i)=""thenv$(i)=" " <mp> 

1430 da$(i)=dm$ <gk> 

1440 return <nj> 

1450 rem-<pd> 

1460 rem daten speichern <lj> 

1470 rem-<nf> 

1480 open7,8,7,"@:"+dt$+",s,w" <ac> 

1490 print#7,x <mh> 

1500 fori=0tox-1 <la> 

1510 print#7,d$(i):print#7,s(i) <bd> 

1520 print#7,v$(i):print#7,da$( i) <fj> 

1530 nexti <em> 

1540 close7:return <ie> 

1550 rem-<gn> 

1560 rem daten laden <ge> 

1570 rem-<no> 

1580 open8,8,8,dt$+",s,r" <op> 

1590 inputjjf8,x <hf> 

,1600 fori=0tox-1 <am> 

1610 input#8,d$(i):input#8,s( i) <np> 

1620 input^B,v$(i):input#8,da$(i) <eb> 

1630 nexti <nn> 

1640 close8:return <md> 

1650 sys65529:rem programmende <nm> 

1660 rem nachspann ==========»===*=== <ag> 

1670 rem * farbcodes/steuercodes * <pm> 
1680 rn$=chr$(018):he$=chr$(019) <jc> 

1690 rf$=chr$(146):b$=chr$(32) <pm> 

1700 b2$=b$+b$:b3$=b2$+b$ <kk> 

1710 b4$=b3$+b$:b5$=b4$+b$ <mi> 

1720 b$=b5$+b5$:return <fk> 

1730 rem ========================= <ml> 

1740 rem 12277 bytes memory <jl> 
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1750 rem 04590 bytes program <gf> 
1760 rem 00140 bytes variables <eo> 
1770 rem 01442 bytes arrays <aj> 
1780 rem 00475 bytes strings <mk> 
1790 rem 05622 bytes free (0) <ao> 
1800 rem (bei 3 datensaetzen) < Pj > 
1810 rem ========================= < ma > 


so erscheint wieder die 
Eingabemaske. Ist die 
Eingabe für den ange¬ 
wählten Monat beendet, 
so wird die jetzt umfang¬ 
reiche Datei überschrei¬ 
bend abgespeichert. 

Gibt man nach der Direc¬ 
tory einen noch nicht vor¬ 
handenen Monat ein, so 
tritt zwar ein Fehler in 
der Floppy auf, der je¬ 
doch nicht weiter beach¬ 
tet zu werden braucht. 

Der anschließende Pro¬ 
grammablauf entspricht 
dem oben beschriebenen. 
Die neu eingerichtete 
Datei wird unter dem Na¬ 
men des neuen Monats 
abgespeichert. 

Nach dem Abspeichern 
gelangt man wieder ins 
Hauptmenü. 


2) DATEN AUSGEBEN 


Wählt man diesen Punkt 
an, so gelangt man in ein 
Untermenü: 

1) AUSGABEN 

2) EINNAHMEN 

3) BILANZ 

4) ZURUECK 
Ausgaben listet nach Ein¬ 
gabe des Monats jeweils 
auf Tastendruck nachein¬ 
ander die entsprechenden 
Ausgaben auf. Wählt man 
zuvor die Ausgabe auf 
den Drucker, so erscheint 
die Liste auf Bildschirm 
und Drucker. Nach Ende 
der Liste gelangt man wie¬ 
der ins Untermenü. 

Die Funktion Einnahmen 
funktioniert analog dazu; 
liier werden die Einnah¬ 
men des angewählten Mo¬ 
nats ausgegeben. 

Sowohl bei Ausgaben wie 
auch Einnahmen werden 
angegeben: 

• Datum der Buchung 

• Verwendungszweck 

• Summe 

• Datum des Eintrags der 


Buchung. 

Mit der Funktion Bilanz 
erfolgt unter Angabe des 
Datums, des Verwendungs¬ 
zwecks und der Summe ei¬ 
ne Aufrechnung aller Ein¬ 
nahmen und Ausgaben ei¬ 
nes Monats gegeneinan¬ 
der. Am Ende wird die 
Gesamtsumme angege¬ 
ben. Diese Liste kann 
auch über den Drucker 
erstellt werden. Durch 
Druck einer beliebigen 
Taste gelangt man nach 
Abschluß der Auflistung 
wieder ins Untermenü. 

Mit der Funktion Zurueck 
wird wieder ins Haupt¬ 
menü gesprungen. 


3) DATEN AENDERN 


Bei diesem Unterpro¬ 
gramm erscheinen nach¬ 
einander alle Buchungen 
des angegebenen Monats. 
Man hat die Wahl, ent¬ 
weder zu ändern, weiter¬ 
zublättern oder die Funk¬ 
tion zu beenden. Drückt 
man a für ändern, so 
springt der Cursor in die 
Ausgabemaske und man 
hat die Möglichkeit, die 
vorhandenen Daten zu än¬ 
dern oder zu überneh¬ 
men. Mit w für weiter 
kann man die nächste 
Buchung anwählen. Das 
e für Ende speichert die 
komplette Datei mit den 
Änderungen ab. 

Nach Abschluß einer Än¬ 
derung verschwindet der 
Cursor und das Programm 
wartet auf die Eingabe 
einer der drei Tasten. 


4) PROGRAMMENDE 


Mit dieser Funktion wird 
über eine Systemroutine 
ein Software-Set ausge¬ 
löst. Damit ist das Pro¬ 
gramm gelöscht. 

Henning Koglin □ 


Input, 

Stol perstei n 
für Datenbanken 


Der Programmautor merkt es nicht, der Programm¬ 
tester auch nicht. Wird in jedes Datenfeld etwas 
eingetragen, so arbeitet das Programm fehlerfrei. 
Bleibt ein Datenfeld allerdings leer, so sorgt ein 
Betriebssystem-Fehler für Kummer. 


Leser rufen an und mel¬ 
den, die Wolfsoft-Datei 
aus CW SPEZIAL 5/88 
laufe nicht. Beim Pro¬ 
gramm-Test wurde eine 
Fehlfunktion allerdings 
nicht festgestellt. Noch¬ 
mals werden Daten ein¬ 
gegeben, diesmal aller¬ 
dings, damit es etwas 
schneller geht, einige 
Felder leer gelassen. 

Nach dem Abspeichern 
wollen wir die Datei wie¬ 
der laden. Doch die Flop¬ 
py meldet rotes Licht, 
wird nicht fertig und im 
Programm geht es nicht 
mehr weiter. 

Ob dies wohl mit einem 
Phänomen zusammen¬ 
hängt, das kürzlich beim 
Schreiben eines Line- 
Editors aufgetreten ist? 


Nach einigen mit Text 
gefüllten Zeilen wurden 
einige Zeilen leer gelas¬ 
sen, danach folgte wei¬ 
terer Text. Nach dem Ab¬ 
speichern und erneuten 
Laden waren die Leerzei¬ 
len verschwunden, der 
letzte Text schloß direkt 
an den vorangegangenen 
an. 

Ein Blick in das Betriebs¬ 
system brachte zutage, 
daß beim Vorliegen ei¬ 
nes leeren Datenfeldes 
der Rechner so lange wei¬ 
terlist, bis er auf eines 
mit Daten trifft. Dieses 
wird dann anstatt der 
vorangegangenen Leer¬ 
felder gelesen. Ist die 
Datei allerdings zu Ende, 
so kann der Rechner lan- 
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10 rem i npufc-korrekfcur-'=-=== ••••-ul 6 <el> 

20 rem (p) cummudnre weit team <hu> 
30 rem -'= = = = -r = = < n g> 
40 rem ( o) by rjjfous mittelmeyer <cg> 
50 rem <pd> 
60 rem <ah> 
70 rem <bl> 
80 rem c16/116/pJus4 <ki> 
90 rem =----=-=====-=============== <jg> 

100 ax~320 : rem mc-an-f ang <ja> 
110 fori-axtoax + 24 <pb> 
120 reada:pokei.,a:next <ag> 
130 hb--int( ax/256) : lb=ax-2Sfi*hb <ja> 
140 pukt‘802, lb : pukeB03 > hb <di> 
150 data 032,232,235,008,201,013 <co> 
160 data 208,015,224,000,208,011 <pa> 
170 data 166,019,240,007,162,032 <oi> 
180 data 142,000,002,162,001,040 <jm> 
190 data 096 <gj> 
200 rem - = = =--«=;.-».= = = = = - < n( >> 
210 rem p r o g r a in m e n d e <jl> 
220 rem <},m> 
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ge lesen, bis er auf Da¬ 
ten stößt. 


FEHLERBEHEBUNG 


Drei Möglichkeiten stehen 
zur Diskussion. Am besten 
ist es, wenn der Pro¬ 
grammautor von vornher¬ 
ein dafür sorgt, daß keine 
leeren Datenfelder auftre- 
ten. Ein Leerzeichen wür¬ 
de schon genügen. Nach 
der Initialisierung der Ein¬ 
gabefelder durch ein Leer¬ 
zeichen würde dieses auch 
nach einer leeren INPUT- 
Eingabe erhalten bleiben 
und auf die Diskette ab¬ 
gespeichert werden. 

Bei einer Eingabe mit 
der GET-Routine braucht 
nur im Fall eines leeren 
Eingabefeldes ein Leerzei¬ 
chen nachträglich unterge¬ 
bracht zu werden. Schon 
ist das Datenfeld nicht 
mehr leer, und das Einle¬ 
sen mit IN PUT# von ei¬ 
nem externen Gerät be¬ 
reitet keine Probleme. 
Anstatt mit INPUT# kann 
auch in einer Laufschleife 
mit GET# eingelesen wer¬ 
den. Wir lesen Buchstabe 
für Buchstabe, bis wir auf 
ein Carriage-Return mit 
dem ASCII-Code 13 sto¬ 
ßen. Die gelesenen Buch¬ 
staben fassen wir zu ei¬ 
nem String zusammen, 
und die bei INPUT# 
nicht mehr zu ladenden 
Daten sind wieder vor¬ 
handen. 

Das Laden geht allerdings, 
da wir mit BASIC jeden 
Buchstaben einzeln lesen, 
etwas langsamer. Außer¬ 
dem müssen wir zuvor das 
uns vielleicht nicht so ver¬ 
traute Programm zer¬ 
pflücken, um die entspre¬ 
chenden Änderungen an¬ 
zubringen. 

Diese Arbeit können wir 
uns ersparen, wenn wir 
uns für die dritte Lösungs¬ 
möglichkeit entscheiden. 
Wir korrigieren den feh¬ 
lerhaften INPUT#-Befehl. 
Findet die BASIC-Rou- 
tine ein leeres Datenfeld, 
so mogeln wir für die wei¬ 
tere Verarbeitung durch 
den INPUT#-Befehl 
noch schnell ein Leerzei¬ 
chen hinein: eine elegan¬ 
te Lösung. 


Laden und starten Sie vor 
der Inbetriebnahme der 
Wolfsoft-Datei das Pro¬ 
gramm INPUT-KORREK- 
TUR. und kein Ladefeh¬ 
ler wird mehr auftreten. 
Falls Sie deutschen Zei¬ 
chensatz benützen, legen 
Sie die kurze Maschinen¬ 
routine nicht in den Stack, 
sondern am besten in den 
Kassettenpuffer. Hierzu 
ist in Zeile 100 lediglich 
AX=320 in AX=818 ab¬ 
zuändern. 


KORREKTUR DER 
WOLFSOFT-DATEI 


Wenn Sie folgende Ände¬ 
rungen vornehmen, brau¬ 
chen Sie für künftige Da¬ 
teien keine Korrektur¬ 
routine mehr zu benüt¬ 
zen: 

1010 IF E$=“ “ 

THEN E$=“ “ 

1011 PRINT:RETURN 

Möchten Sie auch Ihre 
alten Dateien auf den 
neuesten Stand bringen, 
so sind in Zeile 1560 bis 


1580 die Speicheranwei¬ 
sungen umzuarbeiten. 

Statt PRINT#7,NA$(I) 
können Sie schreiben 
E$=NA$(I):GOSUB 
5000. Eine geeignete Rou¬ 
tine sorgt für die Korrek¬ 
tur: 

5000 IF E$=“ “ 

THEN E$=“ “ 

5010 PRINT#7,E$: 
RETURN 

Wenn Sie alle PRINT#7- 
Anweisungen in den 
obengenannten Zeilen 
auf die angegebene Wei¬ 
se umgearbeitet haben 
und die INPUT-KOR- 
REKTUR installiert ist, 
brauchen Sie Ihre alte 


STETS DARAN 
DENKEN 


Datei nur hereinzuladen 
und wieder wegzuspei¬ 
chern. Es genügt fortan 
die Programmversion mit 
den Änderungen in den 
Zeilen 1010 bis 1011. 
Beim Programmieren 


sollten wir in Zukunft 
stets an die Eigenheiten 
des INPUT#-Befehls 
denken. 


VERSEHEN DES 
AUTORS 


Ein Versehen des Autors 
in Zeile 540 sorgt für ein 
Verschieben der Bild¬ 
schirmmaske im Ände¬ 
rungsmodus. Statt 
“540 p4$=p4$+...“ 
muß es richtig heißen 
“540 p5$=p5$+...“. 

Damit dürften alle Fehler 
getilgt sein. 

Interessant wäre eine rich¬ 
tige Eingabemaske - wie 
in diesem Heft bespro¬ 
chen — auch in der Wolfs- 
soft-Datei und die Mög¬ 
lichkeit, mit Kassette zu 
arbeiten. Interessant mö¬ 
gen auch Suchroutinen in 
Verbindung mit der Post¬ 
leitzahl sein. Sofern eine 
Überarbeitung und Er¬ 
weiterung.gewünscht wird, 
können Sie uns dies wis¬ 
sen lassen und weitere 
Vorschläge einbringen. 

a.m. □ 


KORREKTUREN UND RICHTIGSTELLUNGEN 



COMMODORE WELT 
SPEZIAL 5/88Seite 44 
WOLFSOFT-DATEI 
540 p5$2p5$+... 
anstatt 

540 p4$=p4$+... 

1010 ifes$2""then 
es$=" " 

1011 print:return 

3120 x$=z3$:m=35:gosub 
3880:printx$ 


In 540 wurde die falsche 
Variable angegeben. Dies 
führt zum Verschieben 
des Bildschirms im Ein¬ 
gabe- und Änderungs¬ 
modus. Leere Datenfel¬ 
der verursachen nicht 
ladbare Dateien, deshalb 
ist die Änderung in den 
Zeilen 1010 und 1011 
nötig. Vergleichen Sie 
hierzu den Artikel 
„INPUT, Stolperstein für 
Datenbanken“. In Zeile 


3120 wurde die falsche 
Subroutinen-Adresse be¬ 
nutzt, was zu einem Ver¬ 
schieben der Bildschirm¬ 
ausgabe führt. 


COMMODORE WELT 
SPEZIAL 5/88 Seitei 14 

QUALLY GOES 
IN TOWN 


Es kam bei einigen Lesern 
in gewissen Situationen 
zu einem OUT-OF-MEMO- 
RY-ERROR. Er tritt auch 
mit Speichererweiterung 
auf, da das Programm für 
den nicht erweiterten CI 6 
geschrieben wurde. Der 
BASIC-Bereich wurde 
eingeschränkt, da ein ver¬ 
änderter Zeichensatz im 
Bereich von $3800 bis 
$3FFF abgelegt ist. An¬ 
scheinend ist der Speicher¬ 


platz so knapp bemessen, 
daß das Programm die An¬ 
fangszeile Nummer 10 
und auch die Schlußzeile 
Nummer 2890 nicht mehr 
verträgt. Sollte der Spei¬ 
cherplatz dann immer 
noch nicht reichen, kann 
zusätzlich die Zeile 2590 
herausgenommen werden. 


COMMODORE WELT 
SPEZIAL 5/88 Seite 38 

CÄSAR 

5160 closei :c=10 

Ein abgespeicherter Spiel¬ 
stand konnte erst nach 
der ersten Spielrunde ge¬ 
laden werden. In Zeile 
4850 muß c den Wert 
zehn aufweisen, um in 
das Spiel zu kommen. 
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Nr. 1 Seite 92 

KASINO 

2030 charl ,po,11 ,b3$ 
:char1 ,po,13,b3$ 
:gosub3190 
2040 charl ,po,10,b3$ 
:char1 ,po,14,b3$ 
:printc1$c1$c1$ 
c2$c2$;k(kp):sound 
1,10,.2:return 


Zwar liegt in diesem 
Listing kein Fehler vor, je¬ 
doch sind zwei Zeilen 
schlecht gedruckt und da¬ 
her teilweise unleserlich. 


C16-P4-SPEZ/AL 

NR. 1 Seite 115 

MANAGER 

Hier wären zwei zusätz¬ 
liche Hinweise angebracht 
gewesen. Das BASIC- 
Programm von Seite 115 
bis 133 ist unter dem 
Namen ,,manager.2“ ab¬ 
zuspeichern, damit es 
vom Startprogramm nach¬ 
geladen werden kann. 
Kassettenbenutzer müssen 
zunächst das Startpro¬ 
gramm und erst anschlie¬ 
ßend „manager.2“ ab¬ 
speichern. 


C16-P4-SPEZIA L 

Nr. 1 Seite 47 

MEGA-TOOL 

Sicher haben Sie das Ver¬ 
sehen in der Anweisung 
bemerkt. Natürlich ist 
MEGA-TOOL nicht un¬ 
ter dem Namen MANA¬ 
GER abzuspeichern. 


C16-P4-SPEZ/A L 

Nr. 1 Seite 9 

DRUCKEN MIT 
JEDEM MODELL 


Die Überschrift hätte 
wohl heißen müssen: 
Drucken mit Centronics- 
Druckem. Denn es gibt 
auch die Anschlüsse RS- 
232 und IEE-488, für die 
ein Centronics-Interface 
keinen Nutzen bringt. 
Leider ist uns ein Fehler 
in der Beschreibung, so¬ 
wohl im Text als auch 
in der Pin-Belegungsta¬ 


belle, unterlaufen. Die 
Busy-Leitung hegt nicht 
auf Pin eins des Cen- 
tronics-Steckers, die 
Strobe-Leitung auch 
nicht auf Pin 11, son¬ 
dern genau umgekehrt. 
Tauschen Sie also in der 
rechten unteren Ecke 
der Pinbelegungs-Tabel¬ 
le die untereinander ste¬ 
henden Zahlen eins und 
elf gegeneinander aus. 
Anlaß zur Kritik gab die 
Darstellung der Diode, 
die zur Annahme verlei¬ 
ten kann, es handle sich 
liier um zwei Dioden. Tat¬ 
sächlich ist es nur eine 
einzige zwischen Pin vier 
des seriellen Ports und 
Pin zwei des Inverters, 


mit der Sperr-Richtung 
gegen den Inverter. Die 
Diode kann bei Verwen¬ 
dung eines Inverters 
oder vergleichbaren 
Bausteines mit offenem 
Kollektor auch wegge¬ 
lassen werden. 

Prinzipschaltung des 
Centronics-Interface 

Ergänzend ist zu vermer¬ 
ken, daß die Rechner¬ 
masse auf Pin zwei des 
seriellen Ports noch mit 
der Druckermasse auf 
Pin 16 des Centronics- 
Steckers zu verbinden 
ist. Die fünf Volt Span¬ 
nung können, sofern 
der Drucker sie bereit¬ 
stellt, von Pin 18 der 
Centronics-Schnittstelle 


abgegriffen werden, 
oder aber von Pin fünf 
eines Joystickports. 


C16-P4-SPEZ/AL 

Nr. 1 Seite 29 

ZEICHENSATZ¬ 

KOMPRIMIERUNG 


Ein Fehler, der sich beim 
Arbeiten mit BASIC 
oder Script-Plus nicht 
bemerkbar macht, sorg¬ 
te dafür, daß bei Verwen¬ 
dung des deutschen Zei¬ 
chensatzes in der Tabel¬ 
lenkalkulation des Plus4 
der Zeichensatz über¬ 
schrieben wurde. Ursa¬ 
che dafür war, daß nach 
dem Heruntersetzen des 


BASIC-Endes der Zeiger 
auf den Stringspeicher 
nicht ebenfalls zurückge¬ 
setzt worden war. Ein 
CLR oder NEW würde 
bereits dafür sorgen. 

Wir ändern im Kompri¬ 
mierungsprogramm die 
Zeile 555: 

555 data 49,58,162, 

0 , 0,0 

Bereits komprimierte 
Programme können da¬ 
durch berichtigt werden, 
daß der END-Befehl im 
BASIC-Kopf durch ein 
NEW ersetzt wird. Es ist 
darauf zu achten, daß die 
Anzahl der Byte nicht 
verändert wird. Zusätz¬ 
liche Eingaben sind da¬ 
her zu unterlassen. Die 


DRUCKER ANPASSUNG 
ist übrigens bei der Plus4- 
Software nur für die 
Textverarbeitung mög¬ 
lich. 


COM MO DO RE WELT 
SPEZIAL 5/88 Seite 4 

UMLAUTE 

MIT WIDERHAKEN 


Das von uns getestete 
Zeichensatzmodul war 
auf Grund eines Produk¬ 
tionsfehlers defekt. Das 
Drucken von deutschen 
Umlauten ist also entge¬ 
gen unserem Bericht 
auch mit Script-Plus 
möglich, sofern ein 
Commodore-Drucker 
mit deutschem Zeichen¬ 
satz, wie der MPS 1000, 
der MPS 1200 oder ein 
vergleichbarer Kompa¬ 
tibler, zur Verfügung 
steht. 


COM MO DO RE WELT 
2/88 Seite 37 

BASIC-TOOL 

In den Tips zum Umgang 
mit BASIC-TOOL stand 
zu lesen, daß für den 
Diskettenbetrieb zwei 
Zeilen umzuändern seien. 
Dies ist richtig. Da das 
Programm umnumeriert 
wurde, stimmten aber 
die Zeilennummern nicht 
mehr. 

Geändert werden müssen 
nicht die Zeilen 654 und 
676, sondern die Zeilen 
664 und 686. 


C16-P4-SPEZ/AL 

Nr. 1 Seite 30 

ÄÖÜ- 

KEIN PROBLEM 


Bei der Zeichensatzan¬ 
passung für die integrier¬ 
te Software des Plus4 
in SCREEN-KEYBOARD 
hatte sich ein Fehler ein¬ 
geschlichen, der das Pi- 
Zeichen auf die für das 
Sternchen vorgesehene 
Taste verwies. In der Zei¬ 
le 355 wurde der Code 42 
vergessen. Richtig ist: 

350 data 251,252,253, 
254,219,220 
355 data 221,64,92,42, 
94.222 ' □ 
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In Basic 

programmieren? 
Kein Problem! 


Immer wieder erreichen uns Leser-Zuschriften, 
die ein großes Interesse an Anwendungsprogrammen 
bekunden. Viele dieser Leser geben auch ohne 
große Umschweife zu, daß ihre BASIC-Kenntnisse 
noch nicht sehr umfangreich sind, vor allem, wenn sie 
den Computer erst vor kurzem gekauft haben. 

Wir haben uns nun gedacht, künftig diesem Teil unse¬ 
rer Leser ein wenig den Einstieg in meistverbreiteste 
Programmiersprache der Welt zu erleichtern. 


Anwendungsprogramme 
können sowohl professio¬ 
neller als auch eigen-ge- 
strickter Natur sein. 
Professionelle Programme 
können Sie kaufen und so¬ 
fort einsetzen. Sie kön¬ 
nen aber auch versuchen, 
selbst welche zu schrei¬ 
ben. Da aber hakt es doch 
bei manchem, das Wissen 
reicht noch nicht ganz 
aus. Programmieren ler¬ 
nen Sie aber nicht nur 
durch Lesen von Fachbü¬ 
chern und Zeitschriften, 
sondern vor allem durch 
Übung. 


WAS SOLL DENN 
PROGRAMMIERT 
WERDEN? 


Dabei tritt anscheinend 
bei dem einem oder ande¬ 
ren ein Problem auf, näm¬ 
lich die Frage: Was soll 
ich denn programmieren? 
Die Antwort darauf ist 
eigentlich recht einfach: 
Ein Programm, das Ihr 
Anwendungsproblem löst. 
Um Ihnen aufzuzeigen, 
wie Sie ein Problem lösen 
können, werden wir eines 
darstellen und Ihnen ei¬ 
nen Lösungsweg bieten 
und selbstverständlich ein 
Programm hierfür bieten 
und besprechen. 

Sicher haben auch Sie 
schon einmal darüber 
nachgedacht, wie denn 
chiffrierte Nachrichten 
decodiert werden können. 
Im Zeitalter der Compu¬ 


ter sind für solche Arbei¬ 
ten zwar auch noch Spe¬ 
zialisten erforderlich, 
aber ein Großteil der - 
oft sehr mühseligen - Ar¬ 
beit kann durch Compu¬ 
ter in sehr kurzer Zeit er¬ 
ledigt werden. 

Bestimmt haben Sie auch 
schon von verschiedenen 
Methoden der Verschlüs¬ 
selung gehört. Möglichkei¬ 
ten gibt es viele. Eine viel¬ 
leicht bereits bekannte 
Art ist das Verschlüsse¬ 
lungsquadrat. 

Das bedeutet, der zu co¬ 
dierende Text wird bei¬ 
spielsweise senkrecht in 
ein Rasterfeld mit gleicher 
Spalten- und Zeilenanzahl 
eingegeben und waagrecht 
ausgelesen. 

Selbst wenn Sie aber bei 
einem Text wissen, daß 
er nach dieser Methode 
verschlüsselt wurde, ist es 
,,zu Fuß“ trotzdem noch 
schwer, die Decodierung 
durchzuführen. Da muß 
der Computer ran. 


VERSUCHEN SIE ES 
ZUERST OHNE 
PROGRAMM! 


In Zeile 130 des Listings 
sehen Sie eine „verschlüs¬ 
selte“ Mitteilung. 
Versuchen Sie doch ein¬ 
mal, ohne Computerunter¬ 
stützung herauszufinden, 
wie die Nachricht lautet. 
Wenn Sie es so schnell 
schaffen wie Ihr Commo- 
dore-Rechner mit Hilfe 


des abzutippenden Pro¬ 
grammes, dann sind Sie 
absolut Spitze und könn¬ 
ten Ihren Computer ei¬ 
gentlich wieder verkau¬ 
fen. 


VOM PROBLEM 
ZUR LÖSUNG 


Nun wissen Sie also, wor¬ 
um es geht und haben die 
Aufgabe, ein Programm 
zu schreiben, das diesen 
verschlüsselten Text als 
Klartext ausgibt. Bevor 
Sie nun Ihren Computer 
einschalten und versu¬ 
chen, wie ein Weltmeister 
zu programmieren, soll¬ 
ten Sie vielleicht erst ein¬ 
mal überlegen, wie ein 
Lösungsweg aussehen 
könnte. 

Bei einem Quadrat ha¬ 
ben wir es mit einer Flä¬ 
che zu tun, deren vier 
Seitenlängen gleich sind. 
Denken Sie zum Beispiel 
an ein Schachbrett. 

Die Buchstaben des Klar¬ 
textes wurden so auf die 
Felder geschrieben, daß 
der Text — links oben be¬ 
ginnend — nach rechts 
läuft, so wie eben norma¬ 
lerweise geschrieben und 
gelesen wird. Ausgegeben 
wird der Text aber derart, 
daß von oben nach unten 
gelesen werden muß, um 
ihn zu verstehen. 

Obwohl Sie den codierten 
Text kennen, wissen Sie 
nicht, welche Seitenlänge 
dieses Verschlüsselungs¬ 
quadrat hat - oder doch? 
Wenn, wie in unserem 
Beispiel, eine sehr einfa¬ 
che Codierung erfolgt, 
kann Ihnen die Länge des 
Textes diese Information 
liefern. Bei einer quadra¬ 
tischen Anordnung muß 
der Text im Quadrat 
komplett enthalten sein. 
In diesem simplen Bei¬ 


spiel muß die Quadrat¬ 
zahl der Seitenlänge 
also gleich oder größer 
der Zeichenketten(= 
String)-Länge sein. Das 
heißt, die nächst mögliche, 
ganzzahlige Wurzel aus 
der Länge der verschlüs¬ 
selten Nachricht ergibt 
die Seitenlänge des 
Quadrates. 


ES GEHT NICHT OHNE 
MATHEMATIK 


Kurz zur Erinnerung und 
Auffrischung: Die Wurzel 
einer Zahl ist der Wert, 
der mit sich selbst multi¬ 
pliziert eine Quadratzahl 
ergibt, zum Beispiel Wur¬ 
zel aus 49 = 7, weil 7 mal 
7 eben wieder 49 ergibt. 
Wenn Sie nun beispiels¬ 
weise einen Text mit drei¬ 
ßig Zeichen Länge haben, 
dann paßt dieser in ein 
minimales Feld mit einer 
Seitenlänge von 6. denn 
eine mit nur 5 ergäbe als 
maximale Text länge nur 
fünfundzwanzig Zeichen 
(5*5 = 25). 



Damit haben wir auch 
schon den Lösungsweg 
dieses Problems gefunden. 
Wir brauchen nun nur 
- beim ersten Buchsta¬ 
ben beginnend - den co¬ 
dierten Text vertikal 
(senkrecht) in ein gezeich¬ 
netes Quadrat einzutra¬ 
gen und horizontal (waag¬ 
recht) zu lesen. Aber wir 
wollen diese Aufgabe ja 
nicht selbst erledigen, 
sondern ein Programm ent¬ 
werfen, das uns diese Ar¬ 
beit abnimmt. 


DIE PROGRAMM¬ 
STRUKTUR 


Zunächst einmal wird bei 
Programmstart der Bild¬ 
schirm gelöscht (PRINT 
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CHR$( 147)). Damit wir 
aber auch sehen, welchen 
Zweck unser kleines Pro¬ 
gramm erfüllen soll, geben 
wir eine entsprechende 
Mitteilung durch den 
PRINT-Befehl aus. 

PRINT ist die einfachste 
Anweisung an den Com¬ 
puter, etwas auszugeben, 
im Normalfall auf dem 
Bildschirm. Wenn wir 
Text ausgegeben haben 
wollen, dann kann dies so 
geschehen, daß nach dem 
PRINT-Befehl der ge¬ 
wünschte Text in Anfüh¬ 
rungszeichen eingeschlos¬ 
sen steht, dann handelt 
es sich um einen Text¬ 
string. Hierfür ist in unse¬ 
rem Programm Zeile 100 
zuständig. 

Zeile 110 bewirkt die 
Ausgabe des Textes: 

,,Waagrecht schreiben“ 
und in der folgenden Zei¬ 
le „Senkrecht auslesen“. 
Als nächstes wollen wir 
dem Computer mitteilen, 
welcher Text decodiert 
werden soll. Dies kann 
beispielsweise über eine 



Zuweisung oder auch 
durch den INPUT-Befehl 
erfolgen (INPUT = Gib 
etwas ein!). Der INPUT- 
Befehl in seiner einfach¬ 
sten Form benötigt aber 
einen Zusatz. 

Der Computer muß sich 
ja unsere Eingabe vorüber¬ 
gehend merken können, 
deshalb gehört zum IN¬ 
PUT-Befehl noch die Zu¬ 
weisung eines Variabien- 
Namens, unter dem Ihre 
Eingabe zwischengespei¬ 
chert wird. Es können so¬ 
wohl String- als auch rei¬ 
ne Zahlen-Variablen 
sein. 

Allerdings kennt Ihr 
Computer dabei nur ein 
Entweder-Oder: Haben 
Sie String-Variablen vor¬ 


gesehen, so wird auch je¬ 
de eingegebene Zahl als 
reine Zeichenkette (wie 
etwa Buchstaben) behan¬ 
delt und interpretiert. 
Rechnen können Sie 
dann mit diesen Zahlen 
nicht, sondern sie nur 
wie einen Text auf dem 
Bildschirm ausgeben. So 
ein Variablenname wird 
immer mit einem davor¬ 
gesetzten Semikolon 
(Strichpunkt) an die.IN- 
PUT-Anweisung angehängt, 
in unserem Beispiel eben 
CO$. 

Reine numerische Varia¬ 
blennamen werden eben¬ 
so angefügt, haben aber 
den Vorteil, daß die Ein¬ 
gabe nicht als Zeichenket¬ 
te, sondern als im weite¬ 
ren Programmverlauf als 
berechenbare Gleitkom¬ 
mazahl behandelt wird. 
Allerdings dürfen Sie hier 
auch nur echte Zahlen 
eingeben, also keine ande¬ 
ren Zeichen wie Buchsta¬ 
ben. Interpunktions- oder 
Grafikzeichen, auch nicht 
mit einer Zahl gemischt 
(beispielsweise Al), das 
wird Ihr Computer im¬ 
mer grimmig mit einer 
Fehlermeldung quittie¬ 
ren. 

Dann ist es für ihn näm¬ 
lich eine Zeichenkette, 
ein String, und Sie haben 
ihn ja angewiesen, eine 
rein numerische Variable 
zu speichern, etwa 
INPUT“ZAHL:“; Z (also 
ohne $-Dollarzeichen!). 
Verzeihen Sie uns die 
kleine Abschweifung zum 
Wesen des INPUT-Befehls. 
fahren wir in unserem 
Beispielprogramm fort. 

Die Aufforderung zur 
Eingabe erfolgt — seitens 
des Computers — durch 
Ausgabe eines Fragezei¬ 
chens (das mit ein paar 
Tricks auch unterdrückt 
werden kann) und des 
Cursorsymbols. 

Bei Programmen, deren 
Erstellung schon längere 
Zeit zurückliegt, wissen 
wir nicht immer, was als 
Eingabe zu folgen hat. Ei¬ 
ne kurze Mitteilung in¬ 
nerhalb des INPUT-Be¬ 
fehls ist daher unbedingt 
zu empfehlen. 

Betrachten Sie dazu ein¬ 
mal Zeile 120. Allerdings 


haben wir zunächst diese 
Zeile durch das davorge¬ 
setzte REM außer Ge¬ 
fecht gesetzt. Alles, was 
nach so einer Anweisung 
in einer Programmzeile 
folgt, wird vom Compu¬ 
ter ignoriert und nicht 
ausgeführt, sondern nur 
als Bemerkung betrachtet, 
auf Englisch REMARK, 
daher die Abkürzung 
REM. 

Um Ihnen (und uns) die 
Arbeit zu erleichtern, ha¬ 
ben wir in der folgenden 
Zeile 130 der Variablen 
CO$ die codierte Zeichen¬ 
folge direkt zugewiesen. 
Falls nämlich noch Pro¬ 
grammierfehler enthalten 
sein sollten, dann braucht 
nach deren Korrektur 
diese sehr fremdländisch 
klingende Zeichenfolge 
nicht jedesmal mühsam 
von Hand eingegeben zu 
werden. 

Für spätere Abläufe, also 
wenn das Programm fer¬ 
tig ist und fehlerfrei läuft, 
können Sie vor die An¬ 
weisung C0$ = ... ein 
REM setzen und dafür 
das in Zeile 120 (vor der 
INPUT-Anweisung) ent¬ 
fernen. 


DURCH DIE ZEICHEN¬ 
KETTE WEISS DER 
COMPUTER 
ALLES NÖTIGE 


Alles, was wir dem Com¬ 
puter an Informationen 
geben konnten, haben wir 
getan. Die Zeichenfolge 
ist ihm nun bekannt, die 
Länge dieses Strings kann 
er sich gefälligst selbst 
ausrechnen. 

Die Anweisung dazu lau¬ 
tet LEN(String). LEN ist 
leicht zu merken (was üb¬ 
rigens für die meisten 
BASIC-Befehle gilt), 
wenn Sie ein bißchen Eng¬ 
lisch können. Es wurde 
aus dem Wort length 
(=Länge) hergleitet. 

Die Befehlsfolge von 
LE = LEN(CO$) läßt 
sich am besten so überset¬ 
zen: Die Länge der Zei¬ 
chenkette CO$ in der nu¬ 
merischen Variablen LE 
merken. 

Nachdem der Computer 
die Länge berechnet hat, 
soll er die Wurzel ziehen, 


damit er die Seitenlänge 
des Quadrates weiß. 

Die Wurzel (in diesem 
Fall die Quadratwurzel) 
wird durch den Befehl 
SQR(LE) gezogen. Da es 
aber keine halben Felder 
gibt, ist die Lösung nur 
dann richtig, wenn es sich 
bei der Wurzel um eine 
echte INTeger-Zahl han¬ 
delt. Deshalb wird in Zei¬ 
le 150 gleich festgelegt, 
daß für die Variable WU 
der Integer-Wert berech¬ 
net wird. 

Wenn die Mitteilung aber 
nicht so lang ist, daß sie 
ein Quadrat ganz ausfüllt, 
dann sind noch die 
Spaces, die Leerstellen im 
Text. Dadurch würde sich 
über die Integerberech¬ 
nung ein Fehler einschlei¬ 
chen . 

Wir fangen dies in Zeile 
1.60 ab, indem immer 
dann, wenn das Quadrat 
der Seitenlänge kleiner 
ist als die Anzahl der Zei¬ 
chen. ein Leerzeichen an¬ 
gefügt und die Berech¬ 
nung neu durchgeführt 
wird. Der Code fürs Leer- 
zeichen ist t CHR$(32) t . 

DIE WURZEL DARF 
NUR GANZZAHLIG 
SEIN 


Zur Verdeutlichung des 
eben Gesagten: Die Län¬ 
ge der Mitteilung beträgt 
63 Zeichen. Berechnen 
wir daraus die Quadrat¬ 
wurzel, dann ergibt sich 
ein „krummer“ Wert von 
7,937. 

Dieser Wert kann in unse¬ 
rem Falle nicht die Seiten¬ 
länge des Quadrates sein, 
denn wir arbeiten ja nicht 
mit Bruchteilen von 
Buchstaben oder Zeichen. 
Deshalb die künstliche 
Verlängerung der Zeichen¬ 
kette, eine neuerliche Be¬ 
rechnung der Wurzel und 
dann wieder ein Vergleich. 
Dies erfolgt so lange, bis 
der Wert für WU der Zahl 
8 entspricht. 

Nun ist die Seitenlänge 
bekannt. Was aber noch 
zu tun ist: Die einzelnen 
Buchstaben in korrekter 
Weise zusammenzufügen 
und auszugeben. 

Zu diesem Zweck haben 
wir zwei Schleifen pro- 
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grammiert, die uns den je¬ 
weils aktuellen Buchsta¬ 
ben, im Programm EM$ 
genannt, herausfiltern. 

Dies passiert in den Zei¬ 
len 160 bis 210. 

Dabei erledigen wir in die¬ 
sen Zeilen gleich zweier¬ 
lei: Einmal möchten 
wir den Klartext so ausge¬ 
ben, wie er im ursprüng¬ 
lichen Quadrat stand, 
und zum anderen wollen 
wir ihn gleich in einen 
neuen String schreiben, 
der anschließend ausge¬ 
geben werden soll. 

Wir wissen es und der 
Computer berechnet es 
aus der Länge; unser Bei¬ 
spieltext bestand aus ei¬ 
nem 8 * 8-Quadrat. Des¬ 
halb brauchen wir nur, 
beim ersten Zeichen be¬ 
ginnend, jeweils immer 
das neunte (acht plus 
eins) Zeichen zu lesen, 
bis wir am Ende angelangt 
sind; dann wird der glei¬ 
che Vorgang wiederholt, 
nur diesmal beim zweiten 
Zeichen beginnend und 
so fort. Aber dafür haben 
wir ja das Programm ent¬ 
wickele_ 

DAS CODIERUNGS- 
PROGRAMM WIRD 
ENTSCHLÜSSELT 

Die Lösung ist recht ein¬ 
fach: Eine Schleife (Zei¬ 
le 160) zählt immer von 
1 bis WU und die andere 
von 0 bis LE, mit der 
Schrittweite von WU. Die 
Schrittweite wird durch 
den Befehl STEP und den 
anschließenden numeri¬ 
schen Ausdruck definiert 
(STEP WU). 

Die Zeile 180 isoliert nun 
den jeweilig korrekten 
Buchstaben aus der Ge¬ 
samtzeichenkette. Den¬ 
ken wir das einmal theo¬ 
retisch durch. 

Beim ersten Durchlauf 
der Zeilen 160 bis 210 ist 
der Wert in der Variablen 
J = 1, der Wert in K = 0. 
Das heißt, in der Zeile 
180 wird der Stringvaria¬ 
blen EM$ der erste Buch¬ 
stabe (= *C‘) zugewiesen. 
Dies können wir leicht 
feststellen, wenn wir die 
Variablennamen in Zeile 
180 durch ihre Werte er¬ 
setzen. Daraus ergibt sich 
folgender Befehl: 


EMS = MID$( COS, 

1 +0, 1) 

MIDS, in dieser Form an¬ 
gewandt, ordnet EMS die 
Zeichenkette aus CO$ zu, 
die an der Position J + 

K (=1) beginnt und ein 
Zeichen lang ist ( ,1). 
Durch Zeile 190 wird die 
Zeichenkette für KL$ zu¬ 
sammengebaut. Beim er¬ 
sten Durchlauf enthält 
KL$ deshalb das Zeichen 
C. 


liehe FOR-NEXT-Schlei- 
fe begann. 

Es wird deshalb in Zeile 
170(!) fortgefahren. Die¬ 
se bewirkt nun eine Erhö¬ 
hung des Wertes für K 
um den Wert WU. Das 
heißt, K erhält eine Erhö¬ 
hung um acht und hat 
nun den Wert 8. Wenn Sie 
die Zeile 180 nun wieder 
auflösen, dann steht dort: 

EM $ = MIDS (COS. 

8 + 1 , 1 ) 


iZad i e:»r- ± Töm Ir. 


10 rem codierter text 

<hp> 

20 rem by lothar miedel 

<jl> 

30 rem ( c) commodore weit 

<mi > 

100 scnclr: print" loesung fuer ver 


schluesseJungsquadrat'Gprint 

< n 1 > 

110 print"waagrecht schreibenpr 


int "senkrecht: auslesen!": print 

<hd> 

120 rem input"bitte text eingeben" 


; co$ 

<em> 

130 co$ =5 "cedsf n o-icucu mwehelt m 


e rr2z olzi Re dtefd-r o-iteh r t 


ne ! " 

<nf > 

140 le=ien(co$):wu=int(sqr(1e)) 

<bf > 

150 if(wu Ä 2)<le thenco$=co$+chr$(3 


2) :goto 140 

<ii> 

160 forj=1towu 

<da> 

170 fork=0tolestepwu 

<ob> 

180 em$=mid$(co$,j+k,1J 

<kn> 

190 kl$~kl$+em$ 

<dg> 

200 printem$" 

<da> 

210 nextk:print:nextj 

<mp> 

220 print:print"klartext: ";kl$ 

<dk> 

230 rem 

<fm> 

240 forj=1towu :+'ork = 0tolestepwu 

<fd> 

250 em$=mid$( kl$,j+k, 1) :c1$ = c1$ + ern 


$ : n e x t k , j 

< gj > 

?60 print:prinf'codierter text: "c 


1$ 

<ih> 


Durch Zeile 200 wird das 
jeweils aktuelle Zeichen 
und anschließend ein 
Leerzeichen ausgegeben. 
Das Semikolon am Ende 
dieser Zeile weist den 
Computer an, nun keinen 
Zeilenvorschub auszufüh¬ 
ren, sondern in der glei¬ 
chen Zeile zu bleiben. 

Der Befehl NEXT K in 
Zeile 210 bewirkt, daß 
der Schleifenwert für K 
erhöht und dort weiterge¬ 
macht wird, wo die eigent¬ 


Das zweite Zeichen steht 
also nun an neunter Stel¬ 
le und entspricht dem 
Buchstaben 0. Beim näch¬ 
sten NEXT K wird wie¬ 
der um acht erhöht und so 
weiter. 

Wenn Sie sich die Mühe 
machen.wollen, können 
Sie nun - Schritt für 
Schritt — den Programm¬ 
ablauf nachvollziehen. 

Der Befehl PRINT in Zei¬ 
le 210 bewirkt, daß bei 
der Ausgabe, nach jeweils 


acht Zeichen, ein Zeilen¬ 
vorschub durchgeführt 
wird. Nach diesem wird 
dann der Wert für J er¬ 
höht. Da in der Schleife 
für J keine Schrittweite 
angegeben ist, wird jeweils 
um 1 erhöht. 

Nach der ersten PRINT- 
Ausführung in Zeile 210 
wird bei Zeile 160 weiter¬ 
gemacht. Der Wert für J 
ist dann 2. Gleichzeitig 
wird durch Zeile 1 70 der 
Wert für K wieder auf 0 
gesetzt. Dadurch ergibt 
sich für Zeile 180 nun 
folgende Wertstellung: 

EM $ = MIDS (Co$. 

0 + 2 , 1 ) 

Das heißt, nun wird beim 
zweiten Buchstaben be¬ 
gonnen und die innere 
Schleife (wieder neu) ab¬ 
gearbeitet. Dadurch ste¬ 
hen die aktuellen Zei¬ 
chen nun an den Positio¬ 
nen: 2, 10, 1 8. 26 usw. 
Diese Vorgänge wiederho¬ 
len sich so lange, bis der 
komplette Text entschlüs¬ 
selt, also sowohl in der 
8 * 8-Matrix ausgegeben 
als auch in KL$ (^Klar¬ 
text) zusammengebaut 
ist. In Zeile 220 wird 
dann der decodierte 
String ausgegeben. 


UND ALLES AUCH 
NOCH UMGEKEHRT 


Die Zeile 240 bewirkt das 
Gegenteil, nämlich die 
Rück-Verschlüsselung des 
Klartextes (KL$) in die 
ursprüngliche Form. Des¬ 
halb kann dieses Pro¬ 
gramm auch zur Ver¬ 
schlüsselung eingesetzt 
werden. Es ändert .sich 
dann lediglich immer der 
Sinn der Ausgaben. Aus 
Klartext wird codierter 
Text und umgekehrt. 

Ein kurzer Hinweis bezüg¬ 
lich des Programmes sei 
uns noch gestattet: Bei 
der Ausgabe der Zeichen¬ 
kette in der quadrati¬ 
schen Bildschirmdarstel¬ 
lung fehlt selbstverständ¬ 
lich eine Zeile (es sind 
nur sieben), denn der ur¬ 
sprüngliche Klartext war 
ja nur 50 Zeichen lang, 
der Rest waren Leer¬ 
zeichen. LM/hbO 
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An uns 
über uns 

EINIGE C16-PR0GRAM- 
ME LAUFEN NICHT 
AUF DEM PLUS4 


Ich bin Besitzer eines 
Commodore Plus4-Com- 
puters und habe mit eini¬ 
gen Software-Program¬ 
men, die für den Commo¬ 
dore CI 6 geschrieben 
wurden, Ärger. 
Seltsamerweise funktio¬ 
nieren die Spiele (zum 
Beispiel Schatztaucher) 
auf dem Original-C16 
wunderbar, auf dem auf 
64 KByte erweiterten 
CI 6 oder Plus4 jedoch 
nicht. Bei den letztge¬ 
nannten Computern 
bricht immer das Bild zu¬ 
sammen und man kann 
nichts mehr lesen bezie¬ 
hungsweise sehen. 

Ich kann mir den Vor¬ 
gang nicht erklären, da 
doch beide Computer, 
bis auf den Speicherplatz, 
gleich sein sollen. Selbst 
bei der softwaremäßigen 
Umstellung auf 64 KByte 
kann ich diese Spiele 
nicht zum Laufen brin¬ 
gen. 

Andree Schumacher, 
Büdelsdorf 

Woran es liegt, daß Pro¬ 
gramme, die auf dem CI 6 
laufen, auf dem erweiter¬ 
ten CI 6 oder dem Plus4 
jedoch nicht funktionie¬ 
ren, kann die verschieden¬ 
sten Ursachen haben. Ein¬ 
mal genügte bereits die ge¬ 
änderte Funktionstast en- 
Belegung beim Plus4 oder 
eines CI 6 mit eingesteck¬ 
tem Software-Modul, daß 
das Programm nicht 
mehr recht wollte. 

Einige Programme sind 
fehlerhaft programmiert. 
Wo es aber nun im Einzel¬ 
fall hapert, kann nicht so 
ohne Weiteres gesagt wer¬ 
den. Wenn Sie solche Pro¬ 
gramme besitzen, die auf 
einem erweiterten Rech¬ 
ner nicht laufen, so infor¬ 
mieren Sie uns am 
besten darüber, damit wir 
eine Liste darüber zur Ver¬ 
öffentlichung anfertigen 
können. Vielleicht 
weiß der eine oder ande¬ 


re unserer Leser bereits, 
woran es bei einigen Pro¬ 
grammen krankt. 


FEHLER IM 
CHECKSUMMER? 


Nachdem ich das Pro¬ 
gramm CHECKSUMMER, 
wie ich meine, fehlerlos 
abgeschrieben und abge- 
saved habe, meldet er 
sich nach dem Laden.und 
nach RUN auch mit 
READY. 

Aber wenn ich nur die 
erste Zeile eines Pro¬ 
grammes eingebe und 
mit RETURN abschließe, 
ertönt ein Klingelzeichen 
und auf dem Bildschirm 
erscheint folgendes: 

PC SR AC XR YR SP 
; 0152 30 64 22 00 F7 

Vielleicht können Sie mir 
kurz und formlos sagen, 
was ich verkehrt mache. 
Gerhard v. Wippern, 
Walldorf 

Das, was auf dem Bild¬ 
schirm zu sehen ist, kenn¬ 
zeichnet den typischen 
Absturz eines Maschinen¬ 
programms. Steht im 
Hauptspeicher des Com¬ 
puters nicht das richtige 
Maschinenprogramm 
oder erfolgt der Sprung 
an eine falsche Stelle, so 
hängt sich entweder der 
Rechner in einer Lauf¬ 
schleife auf, oder trifft 
irgendeinmal auf den Ope¬ 
rationscode 00, der einen 
Break-Interrupt auslöst. 
Das System geht dabei in 
den Maschinenmonitor, 
wo die Registerinhalte an¬ 
gezeigt werden. 

Leider lassen sich hier 
kaum Rückschlüsse auf 
den Fehler im Programm 
ziehen. Es bleibt daher 
nichts anderes übrig, als 
das Programm nochmals 
auf das Genaueste zu 
überprüfen. Um die Feh¬ 
lermöglichkeiten einzu¬ 
schränken, haben wir dar¬ 
um den CHECKSUMMER 
entwickelt. Doch erst gilt 
es, diesen richtig abzutip¬ 
pen. Schade, daß dafür 
noch kein CHECK¬ 
SUMMER zur Verfügung 
steht. 


FEHLERHAFTER 

INPUT 


Ich habe das Listing ab 
Seite 43 der CW- 
SPEZIAL Nr. 5/88 in 
meinen Commodore P4 
eingegeben. Nach dem 
Wiederladen von der 
Floppy werden bis zu 
20 Datensätze einwand¬ 
frei verarbeitet. Bei 21 
Datensätzen gibt es schon 
ein Durcheinander. Hat 
man 25 Datensätze wie¬ 
der eingeladen, erfolgt 
ein Programmabsturz. 
Woran kann das liegen? 
Anmerkung: Die Check¬ 
summe der Zeile 1110 
ist nicht oj sondern jj. 
Karl-N. Wellbrock, 
Papenburg 


FALSCHE CHECK¬ 
SUMMEN? 


Viele Leseranfragen zu 
diesem Programm haben 
uns schon erreicht. Ihren 
Niederschlag haben sie in 
den Korrekturhinweisen 
und einem eigenen Arti¬ 
kel zum INPUT-Befehl in 
diesem Heft gefunden. 

Die andere Checksumme 
kommt durch ein geshif- 
tetes Leerzeichen zustan¬ 
de. Ein normales Leerzei¬ 
chen hat den ASCII-Wert 
32, ein geshiftetes den 
Wert 160. 

Unsere Checksumme wird 
stets für das normale Leer¬ 
zeichen berechnet. In 
Programmzeilen mit Leer¬ 
zeichen zwischen einzel¬ 
nen Großbuchstaben wer¬ 
den erfahrungsgemäß ger¬ 
ne geshiftete Leerzeichen 
eingegeben. So ist es nicht 
verwunderlich, wenn vie¬ 
le glauben, die Check¬ 
summe stimme nicht. Das 
Ersetzen mit normalen 
Leerzeichen beweist es. 
Wenn die Checksumme 
dann immer noch nicht 
stimmen sollte, so liegt 
noch ein Tippfehler vor. 


DEUTSCHER ZEICHEN¬ 
SATZ MIT ZUSÄTZ¬ 
LICHEM SYS-AUFRUF 


Mit Interesse habe ich in 
Ihrem jüngsten Sonder¬ 


heft CI 6-P4-SPEZI AL 
Nr. 1 den Artikel „Deut¬ 
scher Zeichensatz“ gele¬ 
sen. Insbesondere die 
ZS-Komprimierung be¬ 
schleunigt die Programme 
zur Zeichensatz-Anpas¬ 
sung ungemein. Meine 
Frage lautet nun, ob es 
durch Ergänzung dieses 
Programmes durch den 
entsprechenden SYS-Be- 
fehl möglich ist, in einem 
Arbeitsgang nach dem 
Laden und Starten des 
komprimierten Zeichen¬ 
satzes die integrierte 
P4-Software beziehungs¬ 
weise Script-Plus zu 
aktivieren? 

Bei der nicht komprimier¬ 
ten Fassung des SCREEN- 
KEYBOARD ist dies ja 
ohne weiteres möglich 
(anstelle des END-Befehls 
SYS 1525 für die einge¬ 
baute P4-Software). Wich¬ 
tiger aber wäre dies in 
Verbindung mit Script- 
Plus, das ja die Taste F2 
mit dem SYS-Befehl be¬ 
legt und somit den DLOAD 
Befehl ersetzt. Dann könn¬ 
te das Programm jeweils 
zu Beginn der Text-Dis¬ 
kette abgespeichert wer¬ 
den und mit der Commo- 
dore-Taste in Verbindung 
mit RUN/STOP in einem 
Vorgang geladen, gestar¬ 
tet und die entsprechen¬ 
de Textverarbeitung akti¬ 
viert werden. Ich würde 
mich freuen, wenn Sie 
mir mitteilen würden, ob 
der Einbau der SYS-Be- 
fehle in das Programm 
ZS-Komprimierung in 
diesem Sinne möglich ist. 
Rüdiger Weber, 

Vilkerath 


Möglich ist im Grunde ge¬ 
nommen fast alles. Nur 
oft sind Dinge nicht so 
einfach zu realisieren. 

Im BASIC-Kopf der ZS- 
Komprimierung dürfen 
keine zusätzlichen Ein¬ 
tragungen gemacht wer¬ 
den. Wir haben aber be¬ 
reits eine neue Version 
des Komprimierungspro¬ 
grammes entwickelt, die 
einen zusätzlichen SYS- 
Aufruf erlaubt. Im näch¬ 
sten CI 6-P4-SPEZIAL 
werden wir sie veröffent¬ 
lichen. 
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Mikrocomputer-Grundlagen, Teil 6 


Akkubit x Datenbit Akkubit 


Befehle und 
Adressierungsarten 
der CPU 6502 


0 

X 

0 

-> 

0 

0 

X 

1 


1 

1 

X 

0 


1 

1 

X 

1 

-7* 

1 


Beeinflußte Statusbits: 
NZ- 



AND: Bitweises Undieren 


Akkubit x DatenbitAkkubit 


NZ- 


EOR: Exklusives bitweises 
Odern: 


Akkubit x Datenbit-»Akkubit 


NZC- 


Neben bedingten und un¬ 
bedingten Sprungbefeh¬ 
len stellt uns die CPU 
6502 verschiedene Befeh¬ 
le, Register und Adres¬ 
sierungsarten zur Verfü¬ 
gung, mit denen wir Zu¬ 
griff auf unsere Daten in 
den diversen Speicher¬ 
plätzen erhalten. Da Da¬ 
tenverarbeitung auch des 
Datenzugriffes bedarf, 
zeigen wir, wie dieser 
erfolgt. 

Um Speicherinhalte zu laden, 
Registerinhalte zu speichern 
oder zu vergleichen, stellt uns 
die CPU 6502 drei Register 
und die entsprechenden 
Load-, Store- und Compare- 
Befehle zur Verfügung: 


CPU-Register 

Load Store Compare 

A-Register LDA STA CMP 

X-Register LDX STX CPX 

Y-Register LDY STY CPY 

Das A-Register, der Akku¬ 
mulator, ist ein echtes Uni¬ 
versalregister. Wir können 
mit ihm, außer den bereits 
erwähnten Operationen, auch 
die verschiedensten logischen, 
arithmetischen und Schiebe- 
Operationen durchführen. 


LOGISCHE 

OPERATIONEN 


ORA: Bitweises Odern. Jedes 
Bit des Akkumulator-Inhaltes 
wird mit dem entsprechenden 
Datenbit auf folgende Weise 
verknüpft: 


BIT: Bitweises Undieren ohne 
Veränderung des Akkuinhal¬ 
tes, sondern nur des Status¬ 
registers. Zusätzlich zur Vor¬ 
zeichen- und Zeroflag wird 
hier auch das Überlaufflag 
beeinflußt. Der beim Undie¬ 
ren resultierende Wert von 
Bit 6 gelangt in das Über¬ 
laufflag. 

NZ-V 


ARITHMETISCHE 

OPERATIONEN 


ADC: Addieren mit Übertrag 
(Carry). Akkuinhalt und Da¬ 
tenbyte werden addiert, das 
Ergebnis wird wiederum im 
Akku abgelegt. Bei gesetztem 
Carry wird der Akkuinhalt 
zusätzlich im eins erhöht. 

NZC - - V 


SBC: Subtrahieren mit Über¬ 
trag (Borrow). Das Datenbyte 


wird vom Akkuinhalt subtra¬ 
hiert und das Ergebnis im Ak¬ 
ku abgelegt. Bei nicht gesetz¬ 
tem Carry (= gesetztes Bor¬ 
row) wird der Akkuinhalt zu¬ 
sätzlich um eins vermindert. 

NZC - - V 


SCHIEBEBEFEHL 


Beeinflußte Statusbits: N,Z.C. 
Bei Akkuadressierung werden 
die Bits des Akkuinhaltes, 
sonst die der adressierten 
Speicherstelle verschoben. 
Die CPU 6502 kennt vier 
Schiebebefehle: ASL, LSR, 
ROL und ROR. 


ASL 

Arithmetic Shift Left. Bit 7 
wandert in das Carry, Bit 0 
bis 6 werden um eins nach 
links verschoben, so daß de¬ 
ren Inhalt sich darauf in Bit 
1 bis 7 wiederfindet. Bit 0 
wird auf Null gesetzt. Diese 
Operation entspricht einer 
Multiplikation mit dem Fak¬ 
tor 2. 


LSR 

Logical Shift Right. Analog 
zu ASL, nur in umgekehrter 
Richtung. Bit 0 gelangt ins 
Carry, Bit 1 bis 7 gelangen ins 
Bit 0 bis 6, Bit 7 wird auf 
Null gesetzt. 


ROL 

Rotate Left. Im Unterschied 
zu ASL wird Bit 0 nicht von 
Hause aus Null, sondern über¬ 
nimmt seinen Wert vom Car- 
ryflag, welches im Anschluß 
den Wert von Bit 7 bekommt. 


ROR 

Rotate Right. Wie LSR, mit 
dem Unterschied, daß Bit 7 
seinen Wert vom Carryflag 
übernimmt. 


INDEXREGISTER 


Die Register X und Y sind, 
anders als der Akkumulator, 
nicht für Rechenoperationen 
vorgesehen, sondern stehen 
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als Index-Register hauptsäch¬ 
lich für die indizierte Adres¬ 
sierung zur Verfügung. Um 
ihrem Zweck gerecht werden 
zu können, lassen sie sich per 
Befehl um den Wert eines ver¬ 
mindern (deerement) oder er¬ 
höhen (in cremen t): Incre- 
ment, Deerement. 

INX. DEX 

INY. DEY 

Nicht nur die Register der In¬ 
dex-Befehle können dekre- 
mentiert oder inkrementiert 
werden, sondern auch Spei¬ 
cherstellen. Beeinflußt wer¬ 

den hierbei die Flags: 

NZ- 

Um Daten an den Akku oder 
das Stapelrcgister zu überge¬ 
ben oder von ihnen zu über¬ 
nehmen, existieren einige 
Transfer-Befehle: 

TXA X A 

TAX A * X 

TYA Y * A 

TAY A Y 

TXS X » S 

TSX S ^ X 

NZ- 

Mit Ausnahme von TXS wer¬ 
den hier, wie auch bei LDA, 
LDX und LDY das Vorzei¬ 
chenflag N und das Zeroflag 
Z beeinflußt. Die Speicher¬ 
befehle STA, STX und STY 
haben keinen Einfluß auf das 
Flagregister. Die Verglcichs- 
befehle CMP, CPX und CPY 
entsprechen einer Subtrak¬ 
tion, ohne Veränderung des 
entsprechenden Registerin¬ 
haltes und ohne Heranzie¬ 
hung des Carryflags. 

Beeinflußt wird nur das Sta¬ 
tusregister in der gleichen 
Weise wie bei der Subtrak¬ 
tion. 


ADRESSIERUNGS¬ 

ARTEN 


Wollen wir Daten mit einem 
Registcrinhalt verknüpfen, so 


muß dem Prozessor gesagt 
werden, wo sich diese im 
Hauptspeicher unseres Rech¬ 
ners befinden. Wir unterschei¬ 
den folgende Adressierungs¬ 
arten: 

- Unmittelbar 

- Direkt 

- Indiziert 

- Indirekt 

Um Zeit und Speicherplatz zu 
sparen, kennt unsere CPU ne¬ 
ben einer absoluten Adres¬ 
sierung auch die sogenannte 
Zeropage-Adressierung. In 
Kombination mit den vorher¬ 
gehenden ergibt sich eine 
Vielfalt möglicher Adres¬ 
sierungen, wovon die CPU 
6502 folgende besitzt: 

Unmittelbar 

- Direkt, Zeropage 

- Direkt, Absolut 

- Indiziert X, Zeropagc 

- Indiziert Y, Zeropagc 

- Indiziert X, Absolut 

- Indiziert Y, Absolut 

- Indiziert-indirekt X, 
Zeropage 

- Indirekt-indiziert Y, 
Zeropage 
Akkumulator 

Diese Liste ist nicht ganz voll¬ 
ständig, umfaßt aber alle Ar¬ 
ten, mit denen wir uns näher 
befassen werden. Die beding¬ 
ten Sprünge mit der relativen 
Adressierung, der indirekte 
Sprung und die implizierte 
Adressierung wurden bereits 
in der vorhergehenden Folge 
erwähnt. 

Unmittelbare Adressierung 

Dem Operationscode folgt ein 
Datenbyte. Dieses wird je 
nach der auszuführenden 
Operation mit dem entspre¬ 
chenden Register verknüpft. 

Zeropage-Adressierung 

Zeropageadressen sind Adres¬ 
sen von 0 bis 255 ($00-$FF). 
Dem Operationscode folgt 
nur ein einziges Adreßbyte, 
das die gewünschte Speicher¬ 
zelle in der Zeropage angibt. 

Absolute Adressierung 

Absolute Adressen gehen von 


0 bis 65535 ($0000-$FFFF). 
Dem Operationscode folgen 
zwei Byte, und zwar zuerst 
das LOW-, dann das HIGH- 
Byte. Die adressierte Spei¬ 
cherstelle AD errechnet sich 
durch AD=256*HB+LB. 

Direkte Adressierung 

Der Inhalt einer Speicherzelle 
wird entweder mit einem 
Register verknüpft oder zum 
Beispiel durch eine Lade-, 
Verschiebe-, Deerement- oder 
Increment-Operation verän¬ 
dert. Dem Operationscode 
folgt entweder ein Adreß¬ 
byte bei Zcropage-Adressic- 
rung oder zwei Byte bei abso¬ 
luter Adressierung. 

Indizierte Adressierung 

Zur Adressierung einer Spei¬ 
cherzelle wird zusätzlich der 
Inhalt eines Index-Registers 
herbeigezogen. Dieser, zu der 
dem Operationscode folgen¬ 
den Adresse addiert, ergibt 
die Adresse der Speicherzelle, 
auf welche sich die auszufüh¬ 
rende Operation tatsächlich 
bezieht. Hierbei ist den Zero¬ 
page-Adressen besondere Be¬ 
achtung zu schenken. Sei bei¬ 
spielsweise 240 der Wert des 
Adreßbyte und 100 der In¬ 
halt des Indexregisters: Die 
adressierte Speicherstelle ist 
nicht, wie vielleicht zu erwar¬ 
ten, Speicherstelle Nummer 
340, sondern Nummer 84. Es 
lassen sich bei indizierter 
Zeropage-Adressierung nur 
Speicherstellen in der Zcro- 
page adressieren. Sollte der 
Wert, gebildet aus Adreßbyte 
und Indexregister, die Zahl 
255 übersteigen, so ist AD= 
AD-256 die Nummer der ad¬ 
ressierten Speicherstelle. Für 


das Übersteigen des Wertes 
65535 bei absoluter Adres¬ 
sierung gilt analog AD=AD- 
65535. 

Indirekte Adressierung 

Indirekte Adressierung bei 
der CPU 6502 gibt es nur in 
der Zeropage. Die Operation 
bezieht sich hierbei nicht auf 
die durch das Adreßbyte wie¬ 
dergegebene Speicherstelle. 
Vielmehr findet sich dort und 
in der nachfolgenden Spei¬ 
cherstelle, wieder in der Folge 
LOW-Byte und HIGH-Byte. 
nur die Adresse der tatsäch¬ 
lich angesprochenen Spei¬ 
cherstelle. Zur Adreßbildung 
wird außerdem noch der In¬ 
halt eines Index-Registers her¬ 
beigezogen, und zwar auf 
zweierlei Art und Weise. 

Indiziert-indirekte 

Adressierung 

Verwendet wird hierbei der 
Inhalt des X-Registcrs. Dieser, 
addiert zum Wert des Adreß¬ 
byte, ergibt die Adresse der 
zwei Speicherstellen, in wel¬ 
cher die Adresse der anzu¬ 
sprechenden Speicherstelle 
vermerkt ist. 

Indirekt-indizierte 

Adressierung 

Verwendet wird hierbei der 
Inhalt des Y-Registers. Dieser, 
addiert zum Inhalt der durch 
das Adreßbyte bestimmten 
zwei Speicherstellen, ergibt 
die Adresse der anzusprechen¬ 
den Speicherstelle. 

Bei der indiziert-indirekten 
Adressierung wird also der 
Inhalt des X-Registers gleich 
zum Wert des Adreßbyte ad- 


MONITOR 

ASSEMBLER 

ADRESSIERUNG 

LDA t$NN 

LDA,*,Z 

unmittelbar 

LDA SNN 

LDA , 9 ? ,Z 

direkt Z-Page 

LDA SNNNN 

LDA.S.Z 

direkt absolut 

LDA $NN,X 

LDA,%XZ 

indiziert Z-Page 

LDA XNN.Y 

LDA.%Y.Z 

indiziert Z-Page 

LDA SNNNN.X 

LDA.$X,Z 

indiziert absolut 

LDA SNNNN,Y 

LDA,$Y,Z 

indiziert absolut 

LDA (SNN.X) 

LDA,@XZ 

indiziert-indirekt 

LDA (SNN).Y 

LDA,@Y,Z 

indirekt-indiziert 


31 




■ SERIE 


diert und den so bestimmten 
zwei Speicherstellen die letzt¬ 
endliche Adresse entnommen. 
Bei der indirekt-indizierten 
wird der Inhalt des Y-Regi- 
sters zuerst zum Inhalt der 
durch das Adreßbyte be¬ 
stimmten Speicherstellen ad' 
diert und so die eigentliche 
Adresse gebildet. 

Syntax der Adressierung 

Wir ziehen zum Vergleich mit 
unserem eigenen Assembler 
den Maschinenmonitor des 
C16/116/Plus4 oder des C128 
heran. Die Syntax unseres 
Assemblers ist ziemlich ein¬ 
fach gehalten, um dem BA¬ 
SIC nicht allzuviel Arbeit zu¬ 
zumuten. Die Übersicht gibt 
uns die nebenstehende Tabelle. 
Bei unserem Assembler wird 
die Adressierung bereits 
durch die dem Operations- 
Mnemonic folgende Kennung 
bestimmt. Beim Maschinen¬ 
monitor muß eine weiter¬ 
gehende Syntaxprüfung er¬ 
folgen. was diesem allerdings, 
da in Maschinensprache pro¬ 
grammiert. keine besonderen 
Probleme bereitet. Der große 
Nachteil des Monitors gegen¬ 
über dem Assembler besteht 
darin, daß keine Variablen 
verwendet werden können 
und die entsprechenden Ad¬ 
ressen direkt als Hexzahlen 
einzugeben sind. 

Wenn wir von der unmittel¬ 
baren Adressierung absehen, 
so unterscheidet der Monitor 
die absolute und die Zero¬ 
page-Adressierung durch die 
Anzahl der Hexziffern, die in 
unserer Tabelle mit dem 
Buchstaben N gekennzeich¬ 
net sind. Unser Assembler 
betrachtet die der Adreß- 
kennung folgende Zahl Z als 
die Nummer einer von uns zu 
definierenden Variablen. Wir 
können sic, analog zu der 
Labeldefinition im ersten 
Teil unseres Assemblerkurses, 
mit ADR oder = ADR fest¬ 
legen. Eine Ausnahme ist die 
unmittelbare Adressierung, 
bei der die Zahl Z unser Da¬ 
tenbyte darstellt. 

Diese Adressen werden, um 
einen Unterschied zu machen, 
nicht in die Labelliste mit ein¬ 


getragen, sondern in einer ge¬ 
sonderten Adreßliste erfaßt. 
Der Vorteil davon ist, daß 
nachträgliche Änderungen des 
zu assemblierenden Codes je¬ 
derzeit vorgenommen werden 
können, ohne daß wir uns um 
eine Neuberechnung aller Ad¬ 
ressen zu kümmern brauchen. 

Adressierung mit Offset 

Um auch die einer definierten 
Adresse nachfolgenden Spei¬ 
cherstellen anzusprechen, 
kann der Nummer unserer 
Adresse ein Offsetparameter 
voranstehen: 

Offsetparameter &0 
LDA,S,&1,Z 

In diesem Fall wird nicht der 
Inhalt der durch Z gekenn¬ 
zeichneten Speicherstelle in 
den Akku geladen, sondern je¬ 
ner der folgenden. LDA,S,&2, 
Z würde den Inhalt der über¬ 
nächsten Speicherstelle la¬ 
den. 

Verwendung von 
Konstanten 

Damit für unterschiedliche 
Systeme unterschiedliche 
Ausgabecodes kein Problem 
darstellen, haben wir eine 
Konstantendefinition einge¬ 
führt. So könnte ein Commo- 
doredrucker für den Buch¬ 
staben “ä" den Wert 187 be¬ 
nötigen, ein IBM-Drucker da¬ 
gegen den Wert 132. Mit 
=KONST,0,187 würden wir 
der Konstanten 0 den Wert 
187 zuweisen. Folgendes Bei¬ 
spiel würde daraufhin in je¬ 
dem Falle die Ausgabe von 
“ä” auf den Drucker bewir¬ 
ken, sofern es sich bei Label 0 
um die Druckerausgabe han¬ 
delt: 

Druckerausgabe 

LDA,*,K,0 

JSR,0 

Unmittelbares Laden 
eines Adreßbyte 

Oft möchten wir nicht den 
Inhalt einer Speicherstelle 
verarbeiten, sondern deren 
Adresse. Auch hierfür haben 


wir uns einen entsprechen¬ 
den Zusatz überlegt: 

Adreß-Lowbyte 

LDA,*,&L0,Z 

Adreß-Highbyte 

LDA,*,&H0.Z 

Da eine absolute Adresse im¬ 
mer mit zwei Byte, nämlich 
Low- und Highbyte, wieder¬ 
gegeben wird, haben wir die 
Zusätze &LO und &HO einge¬ 
führt. Den Buchstaben L und 
H folgt noch ein Offset 0, 
damit wir auch die Adressen 
der anschließenden Speicher¬ 
stellen in den Griff bekom¬ 
men. 

Akku-Adressierung 

Sie ist vergleichbar mit der 
impliziten Adressierung, bei 
welcher nur ein Byte Opera¬ 
tionscode ohne weitere Ad- 
reßparameter in den Speicher 
des Computers geschrieben 
wird. Der Unterschied besteht 
darin, daß mit dem Opera- 
tions-Mnemonic bei der im¬ 
plizierten Adressierung be¬ 
reits die ganze Sache klar ist. 
Schiebebefehle wie ROR, 
ROL, ASL und LSR können 
sich jedoch außer auf den Ak¬ 
kumulator auch auf zu ad¬ 
ressierende Speicherstellen 
beziehen. Wir müssen daher 
dem Assembler sagen, daß 
wir lediglich den Akkumula¬ 
torinhalt zu manipulieren 
wünschen. Der Maschinenmo¬ 
nitor entnimmt dies bereits 
dem Fehlen der Adreßanga- 
bcn. wir verwenden bei unse¬ 
rem Assembler den Buchsta¬ 
ben “A”: 

MONITOR ASSEMBLER 

ASL ASL,A 

LSR LSR.A 

ROL ROL,A 

ROR ROR.A 

Erläuterung eines 
Assembler-Listings 

Hier ein Beispiel eines As- 
sembler-Listings. welches den 
Bildschirm 256 Mal mit je 
einem anderen Zeichen füllt: 

Zeile 130: 

Adresse Nummer 2 erhält den 


Anfang des Bildspeichers zu¬ 
gewiesen. 

Zeile 140: 

Anfangsadresse des Maschi¬ 
nenprogrammes ist 14336. 
Zeile 150: 

Wir setzen das Interruptflag, 
um den Systeminterrupt zu 
unterbinden, und hoffen 
darauf, daß unsere Maschine 
dadurch ein wenig schneller 
wird. 

Zeile 160: 

Wir markieren einen Schlei¬ 
fenanfang mit LAB.3. Mit 
JSR,0 rufen wir die Sub¬ 
routine auf, die den Bild¬ 
schirm mit dem in Adresse 
Nummer 1 lagernden Zeichen 
füllen soll. 

Zeile 170: 

Wir erhöhen den Wert des in 
Adresse Nummer 1 liegenden 
Code, um das nächste Zeichen 
ausgeben zu können. Bei der 
Inkrementierung wird auch, 
je nachdem, ob der neue Zei¬ 
chenwert Null beträgt oder 
nicht, das Zeroflag entspre¬ 
chend gesetzt. 

Zeile 180: 

Sind noch keine 256 Ausga¬ 
ben erfolgt, so ist das Zcro- 
flag nicht gesetzt. Es erfolgt 


256 AUSGABEN 


nun der Rücksprung nach 
Label Nummer 3, woraufhin 
die restlichen Zeichen aus- 
gegeben werden können. 
Nach 256 Ausgaben wird, 
infolge der vorangegangen 
Inkrementanweisung, der 
Zeichenwert wieder auf Null 
gesetzt. Somit haben wir ein 
gesetztes Zeroflag vor uns. 
Der bedingte Sprung wird 
daher nicht ausgeführt. 

Zeile 190: 

Vor der Rückkehr in unser 
BASIC müssen wir den In¬ 
terrupt wieder zulassen, da¬ 
mit Tastatureingaben mög¬ 
lich sind. 

Zeile 200: 

Rücksprung in das aufrufende 
Programm beziehungsweise 
ins BASIC. 

Zeile 210: 

Mit LAB.O wird der Anfang 
unserer Unterroutine, die für 
das bildschirmfüllende Aus- 
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SERIEH 


geben unseres Zeichens ver¬ 
antwortlich ist, gekennzeich¬ 
net. Wir besorgen uns jetzt 
mit LDX,*,&LO,2 das Low- 
byte der Bildschirmadresse. 
Zeile 220: 

Wir greifen zu einem beson¬ 
deren Trick, der nur in Ma¬ 
schinensprache möglich ist: 
Um uns nicht mit dem Pro- 

PROGRAMM- 

MANIPULATION 

blem herumzuschlagen, wo in 
der 'Zeropage bei den ver¬ 
schiedenen Rechnern ein 
freier Speicherplatz für die 
indirekte Adressierung ist, 
ändern wir ein Adreßbyte 
der in Zeile 280 stehenden 
STA-Anweisung. Da dem 
Operationscode zuerst das 
Lowbyte folgt, wird dieses ge¬ 
ändert. 

Zeile 230: 

Wir besorgen uns das High¬ 
byte der Bildschirmanfangs¬ 
adresse. 

Zeile 240: 

Das Highbyte des Adreßbyte 
der in der Zeile 280 stehen¬ 
den STA-Anweisung wird 
ersetzt. 

Zeile 250: 

Den Akku laden wir mit dem 
auszugebenden Zeichen aus 
Adresse Nummer 1. 

Zeile 260: 

Das Y-Register laden wir mit 
dem Wert 4, da der Bild¬ 
schirmspeicher 4*256 Byte 
umfaßt. Wir verwenden das 
Y-Register als Zähler, der 
uns Aufschluß darüber geben 
soll, wie oft wir noch 256 
Byte auszugeben haben. 

Zeile 270: 

Das X-Register setzen wir als 
Index-Register für die nach¬ 
folgende STA-Anweisung ein. 
Wir wollen es von 0 bis 255 
hochzählen, um auf diese 
Weise 256 Byte zu übertra¬ 
gen. Den Anfangswert setzen 
wir auf Null. 

Zeile 280: 

Mit LAB,1 setzen wir eine 
Schleifenmarkierung. Die Ad- 
reßdefinition ADR,1 ermög¬ 
lichte die in den Zeilen 220 
und 240 erfolgte Manipula¬ 
tion der Adreßbyte. Die 
Nummer 0 der durch die 
STA-Anweisung adressierten 


BEISPIEL—LIBT X NG 


10 rem nssBmblBr-““"“”"“*="““”=“cbm <kl> 
20 rem (p) commodore-welt-team <ie> 

30 rem =========================== <ng> 

40 rem (c] by alfone mittelmeyer <cp> 
50 rem <pa> 

60 rem <ah> 

70 rem programmausschnitt <lc> 

80 rem aus cm 2/88 <nd> 

90 rem =========================== <jg> 

100 rem-<op> 

110 rem zu assemblieren <cp> 

120 rem-<po> 

130 data =adr,2,3072:rem screen (c 
64/128 =adr,2,1024) <nj> 

140 data org,14336 <og> 

150 data sei <kg> 

160 data lab,3, jsr,0 <hc> 

170 data inc,$,1 <bh> 

180 data bne,3 <me> 

190 data cli <oo> 

200 data rts <od> 


210 data lab,0, ldx,#,G10,2 <pj> 
220 data stx,$,G1,0 <gg> 
230 data lda,#,Gh0,2 <dl> 


240 data sta,$,G2,0 <pp> 

250 data lda,$,1 <cg> 

260 data ldy,#,4 <ei> 

270 data ldx,#,0 <fg> 

280 data lab,1,adr,0, sta,$x,0 <dh> 

290 data inx <gg> 

300 data bne,1 <oi> 

310 data dey <ia> 

320 data beq,2 <lk> 

330 data inc,$,G2,0 <lk> 

340 data jmp,1 <hn> 

350 data lab,2, rts <co> 

360 data adr,1,db,0 <ol> 

370 data end <dm> 

380 rem-<kn> 

390 rem ende <bk> 

400 rem-<fc> 


Speicherstelle hat aufgrund Zeile 300: 

unserer Manipulation nichts Es wird so oft auf die STA- 

mehr zu sagen. Vielmehr Anweisung in Zeile 280 zu¬ 
steht dort die gewünschte rückgesprungen, bis der In- 

Bildschirmspeicheradresse. halt des X-Registers schließ¬ 
ist der Wert des X-Registers lieh wieder Null wird. 

Null, gelangt der Akkuinhalt Zeile 310: 

in die so adressierte Zelle. Er- Wir erniedrigen unser als 

höht sich der Inhalt des X- Zähler fungierendes Y-Re- 

Registers, können auch die gister, um nachzuprüfen, ob 

255 nachfolgenden Zellen bereits 4*256 Byte ausge- 

angesprochen werden. geben sind. 

Zeile 290: Zeile 320: 

Wir erhöhen den Inhalt des Sollte der Inhalt des Y-Re- 

X-Registers. gisters Null sein, so ist die Ar¬ 


beit unserer Subroutine be¬ 
endet, und es kann die Ver¬ 
zweigung auf die in Zeile 350 
stehenden Rückkehranwei¬ 
sung erfolgen. 

Zeile 330: 

Sind die nächsten 256 Byte 
auszugeben, so müssen wir 
das Highbyte der in Zeile 280 
stehenden STA-Anweisung 
erhöhen. 

Zeile 340: 

Weiter geht es mit der STA 
Anweisung in Zeile 280. 

Zeile 350: 

Mit LAB,2 markieren wir den 
Zielpunkt der in Zeile 320 er¬ 
folgenden Verzweigung. RTS 
veranlaßt die Rückkehr auf 
Zeile 170 in unserem Haupt¬ 
programm. Dieses Byte Pro¬ 
grammcode hätten wir uns 

RÜCKSPRUNG 

eigentlich schenken können, 
da in erreichbarer Nähe, näm¬ 
lich in Zeile 200, eine RTS- 
Anwcisung zur Verfügung ge¬ 
standen hätte. 

Zeile 360: 

Hier nehmen wir die Defini¬ 
tion der Adresse Nummer 1 
vor und füllen bereits bei der 
Assemblierung diese Speicher¬ 
stelle mit dem Wert Null. Das 
Programm selbst läßt uns hin¬ 
terher diese Speicherstelle 
wieder mit dem Wert Null 
zurück, so daß wir das Pro¬ 
gramm immer wieder mit 
demselben Resultat aufrufen 
können. 

Zeile 370: 

Assembleranweisung zur Be¬ 
endigung des Assembliervor- 
ganges. 

Vorausschau 

In der nächsten Folge erhal¬ 
ten Sie einen zusammen¬ 
fassenden tabellarischen 
Überblick über den CPU- 
Befehlssatz mit Angabe der 
Taktzyklen, die die einzelnen 
Operationen zur Abarbeitung 
benötigen. Auf kaum erklärte 
Befehle soll noch näher ein¬ 
gegangen werden. Dann kön¬ 
nen wir uns getrost an das 
Programmieren in Assembler 
heranwagen. a .m. □ 
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2500 PROGRAMMIERSPRACHEN ZUR AUSWAHL 

Wie in 
Babylon 

Von Dipl.-Ing. (FH) Oliver Rosenbaum 

Der vielschichtige, schnell wachsende Markt 
der Programmiersprachen ist auch für Insider kaum 
noch überschaubar. Unsere Serie erläutert die 
Hauptunterschiede. In der zweiten Folge: Zwanzig 
weitere Programmiersprachen - von Exapt bis OPS-5. 


29. Exapt 

Extended Subset of APT. 
Weiterentwicklung der 
Werkzeugmaschinen¬ 
steuersprache APT (für 
numerische Steuerungen). 
Exapt ermöglicht neben 
der zweidimensionalen 
Steuerung auch die Be¬ 
rücksichtigung des Werk¬ 
stoffes (zweieinhalbdi¬ 
mensionale Steuerung). 
Neben APT (siehe dort) 
ist Exapt eine der wich¬ 
tigsten Sprachen zur 
Steuerung von NC-Ma¬ 
schinen. 

Exapt wird ebenfalls ein¬ 
gesetzt für automatisches 
Zeichnen, ist aber pro¬ 
blemorientiert, also ma¬ 
schinenunabhängig zu 
rogrammieren. 
in sinnvoller Einsatz 
von Exapt setzt eine 
Großrechenanlage voraus. 
Exapt wurde in Deutsch¬ 
land auf der Basis des 
amerikanischen APT er¬ 
stellt und ist daher auch 
in Englisch gehalten. 

1965 wurde Exapt an 
den Technischen Hoch¬ 
schulen in Aachen, Berlin 
und Stuttgart in Zusam¬ 
menarbeit mit der Indu¬ 
strie entwickelt. 

Man unterscheidet drei 
Sprachbereiche: 

Exapt 1 für Bohr- und 

Fräsbearbeitung 
mit Punkt- oder 
Streckensteue¬ 
rung, 

Exapt 2 für Drehmaschi¬ 
nen mit Strek- 
ken- und Bahn¬ 
steuerung. 

Exapt 3 für Fräsbearbei¬ 
tung mit zweiein¬ 
halbdimensiona¬ 
ler Bahnsteuerung. 


Exapt-Programme beste¬ 
hen aus drei Sprachteilen. 
Bei der Übersetzung wer¬ 
den daher drei Überset¬ 
zungsprogramme benö¬ 
tigt. 

Die jeweiligen Überset¬ 
zungen werden getrennt 


voneinander vorgenom¬ 
men. da jeder Teil für 
sich sehr umfangreich 
ist. 

Man unterscheidet: 

■ geometrischer Prozes¬ 
sor 

■ technologischer Prozes¬ 
sor 

■ Postprozessor. 

Im geometrischen Prozes¬ 
sor werden im ersten Ma¬ 
schinendurchlauf alle geo¬ 
metrischen Definitionen, 
die das Programm enthält, 
über das Werkstück und 
die Peripherie verarbeitet. 
Beim zweiten Maschinen¬ 
durchlauf wird die Tech¬ 
nologie der Bearbeitung 
des Werkstückes be¬ 
stimmt. 

Zur Auswertung kommen 
Schnittwerte. Werkzeuge, 
Stoff- und Werkzeugda¬ 


ten, die meist schon vor¬ 
ab gespeichert wurden. 
Der Postprozessor stellt 
die Verbindung des Pro¬ 
grammes mit der NC-Ma¬ 
schine vor: dies ist not¬ 
wendig, da Exapt pro¬ 
blemorientiert ist (siehe 
oben). 

Der Vorteil dieser Drei¬ 
teilung liegt in der größe¬ 
ren Beweglichkeit, der 
Einsparung von Speicher¬ 
platz und der besseren 
Fehlersuche und -korrek- 
tur. 

Programmbeispiel siehe 
Tabelle 8. 


30. FOCUS 

Sprache für Expertensy¬ 
steme, siehe auch 
MANTIS. oder andere 
DL-Sprachen wie SQL. 


31. Forth 

Forth ist ein stackorien¬ 
tiertes Programmsystem, 
das etwa seit 1980 einem 
breiteren Anwenderkreis 
durch die Implementie¬ 
rungen für Micro-Compu- 
ter zugänglich gemacht 
wurde. 

Entwickelt wurde Forth 
zehn Jahre früher von 
Charles Moore auf der 
legendären IBM 1130. 
Forth sollte das System 
der ,,vierten Generation“ 
werden, daher der Name 
(die IBM 1130 ließ ma¬ 
ximal fünfstellige Na¬ 
men zu). 

Heute gibt es preiswer¬ 
te Implementationen für 
die verschiedensten Rech¬ 
nertypen und -großen: 

■ das Standard-Forth der 
Forth-Interest-Group, 
auch Fig Forth genannt; 

■ Forth 79, eine Erweite¬ 
rung des Fig Forth; 

■ C-64 Forth für den 
Commodore, das spe¬ 
ziell den C64 und sei¬ 
nen grafischen Eigen¬ 
schaften angepaßt wur¬ 
de, - 

um nur die bekanntesten 
zu nennen. 

Das Forth-System ist äu¬ 
ßerst portabel. Imple¬ 
mentationen gibt es für 
fast alle Prozessortypen. 
Die hier vorliegende Be- 


Prograaaibeispiel zu Exapt 
Listingausschnitt 

Die Anweisung kennzeichnet den 


1 PARTNO/FLANSCH RO 83-17 


2 NACHIN/PPl,SETPOS,-150,-150,1 


3 TRANS/1t7.2,199.3,0.5 


4 P1=P0INT/100,60,25 

5 P2=POINT/15,20,15 

6 P3=POINT/185,20,15 

7 7SURF/25 

8 K1=CIRCLE/CENTER,P1.RADIUS,(80/21 

9 K2=PATERN/ARC,K1,0,CLN,4 

10 ZSURF/15 

11 L1=PATERN/LIN,P2,ATANGL,90,INCR,2,AT40 

12 L2=PATERN/LIN,P3,ATAN6L,90, INCR,2,AT40 

13 PART/HATERL.27 

14 Al=REftN/DIAP1ET,30,DEPTH,25 


17 A4=SINK/S0,DIAP1ET,20,DEPTH,5,SPIRET, 1 

18 ClDIST/2 

19 C00LNT/0N 

20 FROH/10,10,0 

21 WORK/AI 

22 GOTO/P 1 

23 W0RK/A2 

24 G0T0/K2 

25 WORK/A3,A4 


26 G0T0/L1 

27 C0DITA/12,NOCUT 

28 GOTO/12 

29 FINI 


Prograaaanfang. Hinter den '/* 
steht der Naie des Werkstückes ait 
der Zeichnungsnuaaer. 

Hier steht die Werkzeugaaschine, 
auf der das Teil angefertigt werden 
soll. 

Angegeben sind die drei Koordinaten 
der Position, in der das Werkstück 
eingespannt wurde. 

Oefinition von Punkt 1 
Definition von Punkt 2 
Definition von Punkt 3 
Z-Koordinate des Bohrplans 
Definition des Teilkreises Kl 
Definition der Gewindelöcher auf Kl 
Oefinition der Z-Koordinate 
von LI und L2 
Definition der Bohrung LI 
Definition der Bohrung L2 
Haterialnuaaer 
Arbeitszyklus 'Reiben“ zur 
Herstellung einer Bohrung, 
Durchaesser 30 *» 

Herstellung eines H10 Gewindes 
Definition von 10a« Bohrungen 
Senkoperation ait Durchaesser 20aa 
Sicherheitsabstand von 2*a 
Kühlaittelzugabe wird gestartet 
Definition der Ausgangsposition der 
ersten Bewegung 

Die Reibebearbeitung wird gestartet 
bei Punkt 1 

Die Gewindeoperation wird gestartet 
bei Punkt K2 (Teilkreis) 

Die Bohrbearbeitung (10»al und die 
darauffolgende Senkbearbeitung wird 
gestartet, 
bei LI 

Anheben des Werkzeuges bei# 
überschweben von Hindernissen 
Zweite Bohrbearbeitung (wie 25) 

Ende des Prograaas 


15 A2=TAP/D1AHET,18,DEPTH,15,TAT, 1,BLIND, 1 

16 A3=DRILL/DIAHFT,10,DEPTH,15 


Tabelle 8: 
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Prograisiübeispiel zu Förth: 
Listingausschnitt 


3 IVARIABLE AI 3 «VARIABLE Bf 10 «VARIABLE Cf 
: CKFILE 
?FILE IF 

CR."FILENAHE ■ PAD f.. "NOT FOUND" 0 
ELSE 1 THEN , 

: COPYSCR 

CR ."SCREENCOPY FROH : " Af INPUT« 

CR. "SCREENCOPY TO : " Bf INPUT« 

ÜPENCHN 

' SCR" Af f+ Cf «! 

14 8 14 Cf " ,S,R" f+ COUNT OPEN 
CKFILE IF 
" SCR" Bf f+ Cf $! 

13 8 13 Cf " ,S,S" f+ COUNT OPEN 
CKWRSTAT 

14 HERE 1024 GET# CKWRSTAT 

13 HERE 1+ 1024 PRINT# CKWRSTAT 

THEN 

13 CLOSE 14 CLOSE CLOSCHN CR; 


Tabelle 9: 


Schreibung von Forth ba¬ 
siert auf der C64-Version. 
rorth unterscheidet sich 
in einigen markanten 
Punkten von anderen 
Programmiersprachen: 

■ Forth arbeitet mit der 
RPN (Reverse Polish 
Notation, umgekehrten 
Polnischen Notation) 
hier auch Lifo (Last 

in first out); 

■ Fort ist stackorientiert 
und damit maschinen¬ 
näher als andere höhe¬ 
re Programmierspra¬ 
chen; daraus ergibt sich 
eine höhere Ausfüh¬ 
rungsgeschwindigkeit 
der Programme sowie 
eine bessere Speicher¬ 
ausnutzung; 

■ Bei der Programmie¬ 
rung in Forth wird zu¬ 
gleich mit einem Inter¬ 
preter und einem Com¬ 
piler gearbeitet (inter¬ 
pretierender Compi¬ 
ler). 

Forth besitzt zudem 
ein eigenes Betriebssy¬ 
stem; 

■ Das Forth-System ist 
relativ klein und be¬ 
nötigt nur etwa acht 
bis zwölf KByte; 

■ Es können eigene Be¬ 
fehle entworfen und 

in das System integriert 
werden; 

■ Das Forth-System ist 
äußerst transparent und 
in sich selbst definiert, 
was auch Änderungen 
am System selbst er¬ 
laubt. 


DIE REGISTER 
IN FORTH 


Forth hat grundsätzlich 
zwei verschiedene Stapel¬ 
register: eines für die Ver¬ 
arbeitung von Zahlen 
und ein weiteres für defi¬ 
nierte Wörter, Befehle 
und anderes. 

In Forth gibt es nur we¬ 
nige fertig vordefinierte 
Befehle; sie beschränken 
sich auf ein unbedingt 
notwendiges Minimum, 
ähnlich wie bei Assem¬ 
bler-Sprachen. 

Neu definierte Befehle 
(sie basieren auf den vor¬ 
handenen) werden in ein 


„Wörterbuch“ abgelegt. 
Der TOD (Top Of Dictio¬ 
nary) zeigt immer auf den 
zuletzt definierten Be¬ 
fehl. 

Forth-Programme werden 
in sogenannten Screens 
(Bildschirmseiten) auf 
Diskette abgespeichert. 
Ein Screen entspricht 
dem Inhalt eines kom¬ 
pletten Bildschirmes. 

Mit Hilfe des im Forth- 
Betriebssystem enthalte¬ 
nen Editors können ein¬ 
zelne Screens beschrie¬ 
ben. geändert oder ge¬ 
löscht werden. 


DER BEFEHLSVORRAT 
IN FORTH 


DUP dupliziert den 
obersten Stack¬ 
wert TOS (=Top 
of Stack); 

SWAP vertauscht die bei¬ 
den obersten 
Stackwerte; 

DROP löscht die oberste 
Position im Stack; 
OVER kopiert die vorletz¬ 
te Zahl in den 
obersten Stack 
(TOS); 

ROT vertauscht die 

oberen drei Stack¬ 
werte zyklisch 
(ROTation); 
nPICK kopiert die n-te 
Zahl in den TOS; 
n ROLL vertauscht die er¬ 
sten n-Stackwer- 
te (zyklisch); 

MOD liefert den Rest 
einer Division; 

ABS Absolutwert ei¬ 
ner Zahl; 

MIN bestimmt die 

kleine von zwei 
Zahlen; 

MAX liefert den grö¬ 
ßeren von zwei 
Werten. 

In Forth gibt es außer¬ 
dem vergleichende Ope¬ 
ratoren wie in BASIC: 
größer, kleiner, gleich. 

DO...LOOP 
begrenzt Schleifen in 
Forth analog der For- 
Next-Schleife in BASIC; 

IF..THEN..ELSE 
bedingte Verzweigung: 

BEGIN...UNTIL 
BEGIN...AGAIN 
Schleifen mit beding¬ 
tem Ende; 


BEGIN..WHILE..REPEAT 
bedingte Schleife; 

INPUT 

Eingabe von Variablen in 
das laufende Programm; 

GET INKEY 
Eingabe eines Zeichens 
in das laufende Pro¬ 
gramm. 

Außerdem sind String¬ 
manipulationen möglich 
wie in BASIC (siehe 
dort): 

LEFTS. RIGHTS, MID$, 
LEN, ASC, CHR$ 


FILEHANDLING 


OPEN 

Öffnen eines logischen 
Files; 

CLOSE 

Schließen eines logischen 
Files; 

ABORTIO 

Schließen aller noch offe¬ 
nen logischen Files; 

GETDEV 

holt die Devicenummer 
eines eröffneten Files 
zurück; 

RDSTAT 

liest den Diskettenstatus 
von der Disk; 


CKST 

liest den I/O-Status (ST- 
Variable); 

CKRDSTAT 

Lesen des Fehlerkanals; 

OPENCHN 

eröffnet den Fehlerkanal 
der Diskette; 

CLOSCHN 

schließt den Fehlerkanal. 

Programmbeispiel siehe 
Tabelle 9. 


32. Fortran 

Formular Translator 
(Formel-Übersetzer). 

Wie aus dem Namen 
schon hervorgeht, ist 
Fortran in erster Linie 
zur Lösung von technisch¬ 
mathematischen Proble¬ 
men entwickelt worden. 
Man spricht hier auch 
von einer „Formelspra¬ 
che“. Fortran ist die heu¬ 
te am meisten verbreite¬ 
te Programmier-Sprache 
in diesem Anwendungs¬ 
bereich. 

Fortran bietet aufgrund 
guter Compilerversionen 
eine hervorragende Feh¬ 
lersuche bei der Pro- 
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grammerstellung. Erkannt 
und gemeldet werden: 

■ Anweisungsfehler: 
Syntaxfehler, semanti¬ 
sche Fehler, konstruk¬ 
tive Fehler; 

■ Programmfehler: 
Programmumfangsfeh-, 
ler, Compilerfehler, 
nicht verwendete Varia¬ 
ble oder Unterpro¬ 
gramme; 

■ Laufzeitfehler: 
Speicherbereichsfehler, 
Ein-/Ausgabefehler. 

Angegeben vom Compiler 
wird die Art des Fehlers 
und die Stelle im Pro¬ 
gramm, an der er auftritt 
(vgl. Tabelle 10). 

Es gibt vier verschiedene 
Arten von Anweisungen 
in Fortran; 

1 . Eingabe- und Ausgabe¬ 
anweisungen. 

Sie regeln den Daten¬ 
fluß innerhalb der Re¬ 
chenanlage und zu 
oder von den Periphe¬ 
riegeräten. 

2. Steueranweisungen. 
Hierdurch wird der 
Programmablauf mani¬ 
puliert. Die Steueran¬ 
weisungen bestimmen 
die Reihenfolge der 
Abarbeitung der Befeh¬ 
le und Programmteile. 

3. Spezifikationsanwei¬ 
sungen, welche die Da¬ 
tentypen festlegen (mit 
oder ohne Nachkomma¬ 
stellen, numerische 
oder alphanumerische 
Daten, Texte . . .). 

4. Arithmetische Anwei¬ 
sungen. 

Hier finden die eigent¬ 
lichen Berechnungen 
statt. 

Der Nachteil von Fortran 
ist hauptsächlich in der 
etwas schwierigen Hand¬ 
habung größerer Daten¬ 
mengen zu sehen, wie sie 
beispielsweise in kauf¬ 
männischen Anwendungs¬ 
bereichen anfallen. 
Fortran wurde 1957 ein¬ 
geführt und ständig über¬ 
arbeitet. Die heute ge¬ 
bräuchlichste Form ist 
Fortran IV mit den 
ANSI-Erweiterungen. 
(ANSI = American 
National Standards Insti¬ 
tute, amerikanischer 
Normenausschuß). 


Tabelle 10: 


Beispiel eines ftnaeisungsfehlers in Fortren 


SUMME = Kl + K2 + - K3 
E+E+E+E+E+E+E+E+E+f+E+E 


Progrziizeile 

Fehlerieldung 


E « Error und * * Stille des Fehler* / Hier ist d*8 Minuiziichin der Fehler. 


Tabelle 10b: 


Prograeebeispiel zu Fortran 
Listing 


REAL*8 XA,XE,D,E,XL,ZL,ZR,X1,X-,X,Y 
FIX) * 0.1 * X**3 ♦ 0.3 * X**2 - X - 3.5 
READ (9,1) XA,XE,D,E 

1 FORMAT <$ F10.3) 

XL « XA 

XR * XL ♦ D 
YL = F(XL) 

20 YR = F(XR) 

MR1TE (10.2) XL,ZL 

2 FORMAT (1H,2X,2 F10.3) 

IF (YL»YR) 10,10,30 

10 XI * XL 
X2 = XR 

40 X * 0.5 t (XL ♦ XR) 

Y * FIX) 

IF (ABS(Y) -E) 79,50,50 
50 IF (Y*YL> 60,80,80 
80 XL « X 
YL = Y 
60 TO 40 
60 XR * X 
YR = Y 
60 TO 40 

70 «RITE (10,2) X,Y 
XR = X2 
YR » FÜR) 

30 XL * XR 
YL = XL ♦ D 
IF (XL-XE) 20,90,90 
90 «RITE (10,2) XL,YL 
STOP 
END 


Zwar ist die Sprache 
Fortran wie viele andere 
Sprachen genormt (s.o.), 
aber im Laufe der Zeit 
wurden beim Erstellen 
der Compiler verschiede¬ 
ne Computerhersteller 
einige Anweisungen mo¬ 
difiziert oder anlagenspe¬ 
zifische Befehle mit auf¬ 
genommen, so daß man 
heute nicht mehr von der 
Sprache Fortran spre¬ 
chen kann. Es existieren 
viele Versionen, man 
spricht auch von Dialek¬ 
ten. 

Normen 

■ DIN 66.027 „Informa¬ 
tionsverarbeitung; Pro¬ 
grammiersprache 
Fortran“ (BRD) in 
deutsch; 


■ ANSI X3.9.1978 (USA), 
(früher USAS X3.9- 
1966); 

■ ISO 1539-1980 „Pro¬ 
gramming Language 
Fortran“ (internatio¬ 
nal). 

In neuester Zeit ist ver¬ 
sucht worden, die Vor¬ 
teile der verschiedenen 
Versionen in einem 
Komplex zusammenzu¬ 
fassen: Fortran 77. 

Jedoch wird diese Ver¬ 
sion auch nur eine von 
verschiedenen Fortran- 
Dialekten bleiben, da sie 
zu spät auf den Markt 
kommt. Die bestehenden 
Versionen lassen sich 
kaum verdrängen und 
viele Studenten, die heu¬ 
te die Grundlagen des 


Programmiere ns erlernen 
sollen, studieren dies mit 
einer alten Fortran-Fas- 
sung. Hinzu kommt, daß 
Anlagen, die beispiels¬ 
weise mit Fortran IV- 
Compilern laufen, sich 
in den meisten Fällen 
zwar auf Fortran 77 um¬ 
stellen lassen, dies aber 
mit hohen Kosten ver¬ 
bunden ist. 

Folgende Befehle gehö¬ 
ren zum Fortran-Voka- 
bular: 

Steu er an weisu ngen: 

GO TO 

IF 

DO 

CONTINUE 

CALL 

RETURN 

PAUSE 

STOP 

END 

DIMENSION 
E/A-Anweisungen: 

READ 

WRITE 

ACCEPT 

DISPLAY 

ENCODE 

DECODE 

FORMAT 

REWIND 

BACKSPACE 

END FILE 

DEFINE FILE 

Operatoren: 

+ Addition 
- Subtraktion 
* Multiplikation 
/ Division 
** Potenzierung 
Biblio th eks- Un ter- 
programme: 

SQRT Wurzelfunktion 
SIN Sinusfunktion 
COS Cosinusfunktion 
ATAN Arcustanges 
EXP Exponential¬ 
funktion 

ALOG Logarithmus¬ 
funktion. 

Variablen: 

In Fortran wird streng 
unterschieden zwischen 
den sogenannten Integer- 
Variablen (ganze Zahlen) 
und den Real-Variablen 
(Zahlen mit Nachkomma¬ 
stellen). 

Schon bei der Program¬ 
mierung muß festgelegt 
werden, welche Variablen 
und Konstanten zum 
Typ Integer oder zum 
Typ Real gehören. 
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Es gibt zwei Möglichkei¬ 
ten, die Variablen (und 
Konstanten) zu definie¬ 
ren: 

1 . Implizit: 

Beginnt ein Variablen¬ 
name oder Konstanten¬ 
name (Buchstaben A 
bis Z und Zahlen 0 bis 
9) mit einem der fol¬ 
genden Buchstaben: 

I J K L M N 
so gehört er automa¬ 
tisch zum Typ Integer, 
wenn keine anderen 
Vereinbarungen getrof¬ 
fen werden. Alle ande¬ 
ren Namen gehören 
dem Typ Real an. 
Beispiel: 

SUM =5.11 

P = 6.9 

X = 1.2 

PI =3.14 

1 =2 *1 

JA = 1 L t 

NUMMER = 123f Integer 
NN =8. 

2. Explizit: 

Am Programmanfang 
werden die verwende¬ 
ten Variablen oder 
Konstanten definiert. 

Für allen übrigen Varia¬ 
blen und Konstanten 
gilt die implizite Typ- 
Vereinbarung. 

Beispiel: 

■ Anweisung: 

INTEGER SUMME, 

X. Y, NN 

REAL MM, Z, KA. 

■ Ganzzahl-Variable: 
SUMME, X, Y, NN 
und alle übrigen Varia¬ 
blen, deren Name mit 

I J K L M oder N 
beginnt. 

■ Gebrochene 
Variable: 

MM, Z, K und alle an¬ 
deren Variablen mit 
Ausnahme der oben 
genannten. 

In Fortran werden häufig 
verwendete Programmtei¬ 
le in sogenannte Unter¬ 
programme geschrieben, 
die über das Hauptpro¬ 
gramm aufgerufen wer¬ 
den können. Es gibt hier 
verschiedene Unterpro¬ 
grammformen, die je 
nach den Erfordernissen 
Einsatz finden. 

Die sogenannten Biblio¬ 
theksunterprogramme 



(siehe oben) gehören stan¬ 
dardmäßig zum Fortran- 
Vokabular und werden 
einfach mit ihrem Namen 
und dem Parameter aufge¬ 
rufen, zum Beispiel wird 
der Sinus von 1 5.5° be¬ 
rechnet mit dem UP-Auf- 
ruf: 

x = sin (15.5) 

Der Sinuswert von 15.5 
wird daraufhin berech¬ 
net und in der Variablen 
X abgespeichert und kann 
dort abgerufen werden. 

Die Möglichkeit der Un¬ 
terprogrammbildung gibt 
es auch in anderen Pro¬ 
grammiersprachen, je¬ 
doch ist bei Fortran zu 
beachten, daß Variablen 
im Hauptprogramm nicht 
den gleichen Wert enthal¬ 
ten wie im Unterpro¬ 
gramm, es sei denn, es 
wird ausdrücklich ge¬ 
wünscht (Parameterüber¬ 
gabe). Anders ist dies bei¬ 
spielsweise in BASIC, wo 
eine einmal belegte Varia¬ 
ble ihren Wert beibehält 
(auch in Unterprogram¬ 
men), bis sie durch eine 
Anweisung geändert 
wird. 

Sogar nach der Beendi¬ 
gung des BASIC-Program- 
mes können die Varia¬ 
blen noch abgefragt wer¬ 
den, was in Fortran nicht 
mehr möglich ist. 

Programmbeispiel: 

Nullst eilen ermittlwig 

Die Nullstellen einer vor¬ 
gegebenen Funktion sol¬ 
len innerhalb eines ge¬ 
wählten Intervalles be¬ 
rechnet werden. Die Funk¬ 
tion wird im Programm 
definiert mit: 

f(X) = 0,1 * X**3 +0.5 
* X**2 - X -3,5 

Die Grenzen, in denen 
die Funktion untersucht 
werden soll, werden auf 
einer Datenkarte angege¬ 
ben, ebenso die Schritt¬ 
weite, denn es soll außer¬ 
dem eine Wertetabelle 
ausgedruckt werden. 

XA Untere Grenze 
= - 8.00 
XE Obere Grenze 
= +5.00 


D Schrittweite die Programmierung gra- 

= 1.00 fischer Probleme. 

E Genauigkeit 
= 0 , 001 . 


Programmbeispiel siehe 
Tabelle 10b. 

Der Drucker hat hier im 
Beispiel die Geräte Nr. 10, 
der Kartenleser die Nr. 9 
(READ und WRITE-Anwei- 


34. HOL 

System-Implementations¬ 
sprache für Prozeßrech¬ 
ner des US-Verteidigungs- 
ministeriums, die sich 
noch in der Entwicklung 
befindet. 


sungen). Bei der vorgege¬ 
benen Funktion und den 
gegebenen Grenzen sowie 
der Schrittweite erhält 
man folgende Ausgabe 
auf dem Drucker: 


HOL ist maschinenunab¬ 
hängig und dürfte auf¬ 
grund dessen von großer 
Bedeutung sein, da eine 
einheitliche Systemim¬ 
plementierung bisher 


-8.000 

-14.700 


-7.000 

-6.300 


-6.000 

-1.100 


-5.675 

- 0.000 

— • _ 

-5.000 

1.499 

erste Nullstelle 

-4.000 

2.100 


-3.000 

1.300 


-2.168 

0.000 

— _ 

-2.000 

-0.299 

zweite Nullstelle 

-1.000 

-2.099 


- 0.000 

-3.499 


0.999 

-3.900 


2.843 

0.000 

— _ 

2.999 

0.699 

dritte Nullstelle 

3.999 

6.899 


4.999 

16.499 



Im Rahmen der hier vor¬ 
gegebenen Rechengenau¬ 
igkeit ist Zahl 0.999 = 
1.000, die 1.999 = 2.000 
und so weiter. 

Das negative Vorzeichen 
vor der 0.000 hat für die 
Auswertung keine Be¬ 
deutung. 

Die Nullstellen dieser 
Funktion liegen demnach 
bei: 

xl = -5.675 

x2 = -2.168 

x3 = +2.843 

Ob alle Nullstellen der 

Funktion getroffen 
werden, hängt bei diesem 
Programm im wesentli¬ 
chen davon ab, welches 
Intervall gewählt wird. 
Wird die Genauigkeit er¬ 
höht, verlangsamt sich 
die Rechengeschwindig¬ 
keit. 

33. GPL 

Graphical Programming 
Language. 

Spezialentwicklung für 


noch nicht möglich war. 
Man hofft, die mit Hilfe 
von HOL erreichen zu 
können. 


35. HOPE 

Deklarative Sprache. 
HOPE wurde entwickelt 
an der University of Edin¬ 
burgh. Über ein sogenann¬ 
tes Regelwerk werden 
Beziehungen zwischen 
den betrachteten Daten 
sowie der Datenfluß an 
sich beschrieben (siehe 
auch LISP oder PRO¬ 
LOG). 


36. Lisp 

List Processing Language. 
Höhere Programmierspra¬ 
che mit freier Operator¬ 
wahl und Meta-Compila¬ 
tion. 

Lisp hat einen compilie- 
renden Interpreter (siehe 
auch Forth). 

Lisp ist eine Programmier¬ 
sprache, die zur Erfor¬ 
schung der künstlichen 
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■ SERIE 


Prograraabeispiel zu Lisp 
tUting Ausschnitt 


(defun exchangs-minus(expression) 

(seiectq(expression-type expresssion) 

(expression-with-l-arg) 

(undefinded 'undefinded) 

(0 0 ) ;(- 0 ) -0 

(otherwi se (1 et ((-first-arg (exchange (operrand 1 expression)))) 

(if(equal(operrandl expression)^irst arg) 

expression 

(exchange-ffiinus(make-expression-with-l-arg) 
operator 'minus 
operandi -first-arg)))))) 

(expression-with2-args 

(if(or(eq (operandi expression) 'undefinded) 

'undefinded 

(let((first-arg (operandi expression))) 

(if equal first-arg 0) 

(exchange (make-expression-with-l-erg) 
operator 'minus 

operandi (operand2 expression))) 

(if(equal first arg (operand2 expression)) 

(selectq (operand2 expression) 

(0(exchange (operandi expression))) 

Tabelle 11: 


Intelligenz eingesetzt 
wird, das heißt, in Lisp 
werden unter anderem 
Lernprogramme für Ma¬ 
schinen und Systeme ge¬ 
schrieben. Die Program¬ 
me ändern sich je nach 
den Anforderungen, sie 
können „vergessen“, 
was nicht benötigt wird, 
um Speicherplatz für das 
..Dazugelernte“ zu schaf¬ 
fen. 

Lisp ermöglicht hochprä¬ 
zise Rechnungen in je¬ 
dem Zahlensystem mit 
einer Basis aus dem Be¬ 
reich von 2 bis 36. Durch 
eine dynamische Speicher¬ 
verwaltung wird der be¬ 
nutzte Speicherplatz op¬ 
timiert, so daß auch ex¬ 
trem komplexe Fragestel¬ 
lungen gelöst werden 
können. Die erste Imple¬ 
mentierung von Lisp auf 
einen Microcomputer war 
Lisp 80 von der Firma 
Microsoft. 

Lisp gibt es bereits seit 
Ende der 50er Jahre, 
wurde von John McCarthy 
am Massachusetts Insti¬ 
tute of Technologie ge¬ 
schaffen. Sie gehört seit 
Anfang 1970 zu den 
grundlegenden Werkzeu¬ 
gen für die Erforschung 
der künstlichen Intelli¬ 
genz. 


KÜNSTLICHE 

INTELLIGENZ 


Lisp unterscheidet sich 
von anderen höheren Pro¬ 
grammiersprachen in er¬ 
ster Linie darin, daß nu¬ 
merische Operationen 
nicht die Basis für die Pro¬ 
grammausführung sind. 
Lisp ist daher besonders 
prädestiniert für die Ma¬ 
nipulation symbolischer 
Daten. 

Stellt man sich Symbole 
als Worte vor, dann sind 
Listen von Symbolen 
nichts anderes als Sätze 
und Aussagen. Da die 
Symbolverarbeitung und 
die Fähigkeit zur Wissens¬ 
darstellung relativ einfach 
zur Repräsentation von 
Schablonen und zu Asso¬ 
ziationen des menschli¬ 
chen Denkens genutzt 
werden können, wurde 
Lisp zu einem wesentli¬ 
chen Werkzeug bei den 


Versuchen, menschliches 
Verhalten und Denken zu 
simulieren. Darüber hin¬ 
aus ist Lisp allerdings 
auch eine Sprache für an¬ 
dere universelle Anwen¬ 
dungen. 

Wenn auch die Program¬ 
mierung in Lisp nicht ge¬ 
rade als einfach bezeich¬ 
net werden kann, so ste¬ 
hen dem Programmierer 
doch eine Vielzahl nützli¬ 
cher Hilfs-Werkzeuge zur 
Verfügung; so sind compi- 
lierter und interpretierter 
Code jederzeit ausführbar, 
auch Teilprogramme kön¬ 
nen ausgeführt und zur 
Fehlersuche ausgetestet 
werden. 

Die Konzeption von Lisp 
ist. wie der Name schon 
sagt, auf die Verarbeitung 
von Listen abgestellt, aber 
auf eine ganz andere Art 
wie beispielsweise bei den 
Listen-Generatoren (sie¬ 
he RPG oder LPG). 

Der Programmierer kann 
hier darauf verzichten, 
eine Programmstruktur 
entwickeln zu müssen. 


Diese ist Bestandteil der 
Programmiersprache, 
und man kann sich bei 
der Programmierung ganz 
auf die logische Seite des 
Problems konzentrieren. 
Siehe hierzu auch die 
Ausführungen zu 
PROLOG. 

Aus Frankreich kommt 
die dort sehr stark verbrei¬ 
tete Version Le-Lisp 
dieser schnellen Kl-Spra- 
che. Le-Lisp gibt es seit 
1986 auch in Deutsch¬ 
land.. 

Programmbeispiel siehe 
Tabelle 11. 


37. Logo 

Logo ist ein weiterent¬ 
wickelter Dialekt der Pro¬ 
grammiersprache Lisp. 
jedoch wesentlich weiter 
verbreitet als diese. Logo 
wurde 1967/68 von Sey- 
mour Papert für Kinder 
und Anfänger konzipiert. 
In Europa hatte Logo ei¬ 
nige Startschwierigkeiten, 
da es nur auf Großcom¬ 


putern sinnvoll ange¬ 
wandt werden konnte, 
denn für diese wurde es 
entwickelt. Doch Kinder 
haben eben selten Zugang 
zu Großcomputern. 

In den USA hatte Logo 
jedoch große Erfolge in 
einem Großversuch in 
den Jahren 1970/80. 

Hier in Europa ist Logo 
erst seit etwa 1980 be¬ 
kannt. Dennoch kann 
sich diese hervorragende 
Programmiersprache 
kaum gegen die verbrei¬ 
teten konventionellen 
Sprachen durchsetzen, 
obwohl es für die meisten 
Microcomputersysteme 
Implementierungen von 
Logo gibt, sogar für eini¬ 
ge Homecomputer. 

Logo ist eine typische 
lnterpretersprache wie 
BASIC. Besonders unter¬ 
stützt werden grafische 
Anwendungen und vor 
allem die Computerperi¬ 
pherie bis hin zum Joy¬ 
stick. 


GRAFISCHE 

ANWENDUNGEN 


Logo ist leicht lesbar 
und kurz. Die Programme 
werden in Prozeduren 
aufgeteilt (modulare 
Blöcke) und sind top- 
down strukturiert, das 
ist ein entscheidender 
Vorteil gegenüber 
BASIC. 

Die Nachteile von Logo 
liegen eindeutig in sei¬ 
nen Schwächen beim in¬ 
teraktiven Rechnen. 
Mathematisch-naturwis¬ 
senschaftliche Probleme 
bleiben Probleme in 
Logo. 

Logo stellt folgende 
Grundoperationen und 
Funktionen zur Ver¬ 
fügung: 

+ Addition 
— Subtraktion 
* Multiplikation 
/ Division. 

Negative Zahlen sind in 
Klammern zu schreiben, 
ansonsten gilt „Punkt¬ 
rechnung vor Strichrech¬ 
nung“. 

Ganzzahloperationen: 

ROUND :X 


38 







ProgramiBbeispiel zu Logo 
Listing 


TO PRIMZAHLEN 
CLEARTEXT 

PRINT (PRII1ZAHLENTABELLE) PRINTO 
PRINT (UNTERE GRENZE?) MAKE "M FIRST 
REQUEST 

PRINT (OBERE GREZE?) MAKE “N FIRST 
REQUEST 

IF (REMAINDER :M2)' = 0 THEN MAKE H M :M+1 
PRINTO 
END 

TO PRIM :M :N 

IF :M ) :N THEN PRINT 0 STOP 
MAKE “WURZEL SQRT sM 
MAKE “TEILER 3 
PRIMTEST iM :WURZEL {Teiler 
PRIM {M + 2 :N 
END 

TO PRIMTEST :M : WURZEL ! TEILER 

IF : TEILER 5 {WURZEL + 1 THEN PRINT1 : M PRINT (,) STOP 
IF REMAINDER :M {TEILER) = 0 STOP 
PRIMTEST sM i WURZEL ! TEILER + 2 
END Tabelle 12: 


rundet die reelle Zahl X 
auf die nächste ganze 
Zahl; 

INTEGER:X 
schneidet von der reellen 
Zahl X die Nachkomma¬ 
stellen ab; 

QUOTIENT :X :Y 
ergibt den ganzzahligen 
Anteil der Division von 
X durch Y an. 

Funktionen: 

SQRT :X 

Quadratwurzel aus der 
Zahl X; 

SIN : W 

Sinuswert des Winkels 
W (in Grad); 

COS :W 
Cosinus wert; 

ATAN :X 

Umkehrfunktion des 
Tangens; 

RANDOMIZE 
Initialisierung des Zufalls¬ 
zahlengenerators; 

RANDOM :N 
erzeugt eine ganze Zu¬ 
fallszahl zwischen 0 
und N. 

In Logo sind keine Varia- 
blen-Deklarationen not¬ 
wendig. Logo kennt glo¬ 
bale und lokale Variable. 
Eine Variable kann einen 
Zahlenwert, einen Boole¬ 
schen Wert, ein Wort, ei¬ 
nen Satz beliebiger Län¬ 
ge, eine Liste von Ele¬ 
menten der verschieden¬ 
sten Typen und sogar 
Prozedurnamen ent¬ 
halten. Gerade Program¬ 
mieranfängern dürfte dies 
sehr entgegen kommen. 
Das Handling von Listen, 
eine höhere Form von 
Arrays, ist das geeignete 
Mittel für komplexere 
Probleme der künstli¬ 
chen Intelligenz - mit 
Logo sogar schon auf 
Homecomputern (in ge¬ 
wissen Grenzen, versteht 
sich). 

Logo nimmt unter den 
höheren Programmierspra¬ 
chen eine Sonderstellung 
ein. Logo wurde nicht 
für bestimmte Anwendun¬ 
gen entwickelt, sondern 
als Trainings-Sprache 
zum Erlernen des Pro- 
grammierens in Form ei¬ 
ner geistigen Disziplin; 


also zum Schulen von 
bestimmten Denkmecha¬ 
nismen, die für eine mo¬ 
derne Programmierung 
in jeder Programmierspra¬ 
che von Vorteil sind. 

Logo sollte daher nach 
den Wünschen ihres Ent¬ 
wicklers die allererste 
Sprache sein, mit der ein 
Anfänger in die Welt der 
Programmierung einsteigt, 
um später eine andere zu 
lernen. 

Genau dieses Konzept 
wurde versuchsweise an 
amerikanischen, engli¬ 
schen und französischen 
Schulen eingeführt, mit 
großem Erfolg. 

Es gibt einige Vorteile 
von Logo, die es sinnvoll 
machen, den oben be¬ 
schriebenen Weg einzu¬ 
schlagen. Im folgenden 
werden die wichtigsten 
aufgezählt: 

■ In Logo sind die Pro¬ 
zeduren unabhängig 
voneinander aufruf¬ 
bar und müssen nicht 
über ein Hauptpro¬ 
gramm miteinander 
verknüpft sein. Ein 


Logo-Programm kann 
also direkt am Bild¬ 
schirm entworfen 
werden. 

■ Die kurzen Module 
können während der 
Eingabe fortlaufend 
überprüft und festge¬ 
halten werden. Pro¬ 
blemlos lassen sie sich 
korrigieren und verfei¬ 
nern. Bei Aufruf des 
Programms mit dessen 
Hauptnamen werden 
die Module automatisch 
verkettet. 

■ Logo eignet sich ähn¬ 
lich wie BASIC für den 
Dialogbetrieb, da es 
nicht compiliert, son¬ 
dern interpretiert wird, 
was andererseits zu La¬ 
sten der Geschwindig¬ 
keit geht. Dies ist je¬ 
doch für eine „Lern¬ 
sprache“ untergeord¬ 
net. 

■ Logo unterstützt Rekur¬ 
sionen. Schleifen wer¬ 
den nicht iterativ, son¬ 
dern rekursiv darge¬ 
stellt. 

■ Logo stellt dem Anwen¬ 
der standardmäßig eine 


hochauflösende Grafik 
zur Verfügung, was 
viele andere Sprachen 
nicht können. 

■ In den meisten Pro¬ 
grammiersprachen ist 
die Syntax und deren 
Umfang genau vorgege¬ 
ben. Auch in Logo gibt 
es natürlich einen fest¬ 
gelegten Grundwort¬ 
schatz, jedoch kann der 
Anwender beliebig neue 
Grundwörter definie¬ 
ren, ähnlich wie in 
Forth (siehe dort). Da¬ 
durch kann der Sprach¬ 
schatz erweitert und 
die Programmierumge¬ 
bung den spezifischen 
Anwenderanforderun¬ 
gen angepaßt werden. 

Den oben genannten Vor¬ 
teilen stehen aber auch 
eine Reihe von Nachtei¬ 
len gegenüber: 

■ Logo kennt keine indi¬ 
zierten Variablen, so 
daß nicht wie in ande¬ 
ren Sprachen bequem 
auf bestimmte Ele¬ 
mente eines Feldes zu¬ 
gegriffen werden kann. 
Logo stellt hierzu die 
rekursive Listenbear¬ 
beitung bereit. 

■ Es stehen kaum ver¬ 
nünftige Ausgabe-For- 
matierungs-Befehle zur 
Verfügung, so daß es 
in Logo schwierig wer¬ 
den kann, Listen und 
Tabellen übersichtlich 
auf dem Bildschirm 
darzustellen. Es fehlen 
auch einige, je nach 
Anwendung, wichtige 
mathematische Funk¬ 
tionen, beispielsweise 
zum Potenzieren, Tan¬ 
gensfunktionen, Um¬ 
kehrfunktionen zu 
Sinus und Cosinus so¬ 
wie logarithmische 
Funktionen und Expo¬ 
nentialfunktionen. 

Ohne diese sind allge- 

. meine mathematisch¬ 
naturwissenschaftliche 
Programme kaum zu er¬ 
stellen. Daher gibt es 
einige Ergänzungen zu 
Logo, aber nicht für 
jeden Rechner. Logo 
ist eben nicht die für 
diesen Bereich präde¬ 
stinierte Programmier¬ 
sprache. 

Vor- und Nachteile dürf¬ 
ten sich weitgehend auf- 
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Progradifflbeispiel zu Modula 
Listing 


FROM TERM IMPORT 

WriteString, WriteCard, Writeln; 

CONST 

Size = 7244; (« Arraygröße *) 

Iterations = 15; (* liniau« 1 *) 

VAR 

count, i, iter, k, priaie: CARDINAL; 

Hags: ARRAY(0..Size-1) OF BOOLEAN, 

BEGIN 

WriteString('15 Iterations'); Writeln 
FOR iter : S 1 TO Iterations DO 
count := 0; 

FOR i := 0 TO Size DO flags(i) := TRUE; END; 
FOR i := 0 TO Size DO 
IF Hags(i) THEN 
prisie := i * 2 + 3; 
k := i + priae; 

WHILE k = Size DO 
flags(k) := FALSE, 

INC(k, pritae); 

END; 

INC(count); 

END; 

END; (* FOR «) 

END; (* FOR ») 

WriteString(' There were '); 

WriteCard (count, 0), WriteString (' priates '); 
End BEISPIEL Tabelle 13: 


heben, so daß wieder die 
oben angesprochenen 
Gründe für Logo als 
„Einsteiger-Sprache“ 
zählen. 

Programmbeispiel siehe 
Tabelle 12. 


38. LPG 

Listen Programm Gene¬ 
rator (siehe auch RPG). 
Ein Programm-Genera¬ 
tor ist ein System, wel¬ 
ches von Dateien eingele¬ 
sene Datensätze nach 
vorbestimmten, gleich¬ 
artigen Umformungen 
bearbeitet und in Form 
einer Liste ausgibt. 
Haupteinsatzgebiet für 
solche Programmierspra¬ 
chen liegen im kommer¬ 
ziellen Bereich. 


39. MACRO 80 

MACRO 80 ist ein ver¬ 
schiebbarer Assembler 
(siehe dort) für den Pro¬ 
zessor 8080, 8085 und 
Z80. Dieser Assembler 
unterstützt alle Macros 
nach dem Intel-Stan- 
dard. Dabei wird die 
Schachtelung der Ma¬ 
cros nur durch den vor¬ 
handenen Speicherplatz, 
begrenzt. 

Der Objektcode wird 
in verschiebbarer Form 
generiert, die durch den 
Lader weiterverarbeitet 
wird. Eine bedingte 
Assemblierung wird er¬ 
möglicht durch Pseudo- 
Operationen. Bedingun¬ 
gen können bis zu 255 
Stufen geschachtelt wer¬ 
den. 

MACRO-Definitionen 
- erlauben es, mehrere Be¬ 
fehlszeilen als Macro 
in einer Bibliothek ab¬ 
zuspeichern und jeweils 
durch einen Aufruf in 
das Quellprogramm ein¬ 
zuschließen. Besonders 
interessant ist auch die 
Möglichkeit, in der Bib¬ 
liothek Macros abzuspei¬ 
chern, die Maschinen¬ 
code für jede beliebige 
Acht- oder 16-Bit-Ma- 
schine unabhängig vom 
8080-Code generieren 
können. 

MACRO-80 benötigt 


rund 14 KByte Speicher¬ 
platz und es werden et¬ 
wa 1000 Zeilen pro Mi¬ 
nute assembliert. 


40. MANTIS 

MANTIS ist eine höhere 
interpretative, prozedu- 
rale Sprache, welche die 
Vorteile von BASIC 
(leicht erlernbar, interpre- 
tativ) und Pascal f Struk¬ 
turierung und String- 
Manipulation) in sich ver¬ 
eint. Hinzu kommen Ele¬ 
mente aus APL: Operato¬ 
ren und Mächtigkeit. 

Aus diesen Gründen ist 
MANTIS sehr flexibel. 
MANTIS wurde entwik- 
kelt von „Cincom Sy¬ 
stems“ zur Produktivi¬ 
tätssteigerung beim Pro¬ 
grammieren. Es wird da¬ 


her oft mit den Tools ver¬ 
glichen, die mit Sprachen 
wie Cobol Zusammenar¬ 
beiten. MANTIS ist je¬ 
doch eine richtige höhe¬ 
re Programmiersprache. 
Integrierte Help-Funktio- 
nen und Menüsteuerun¬ 
gen machen MANTIS sehr 
benutzerfreundlich. 

Der vollständige Befehls¬ 
vorrat ermöglicht eine 
übergreifende Anwen¬ 
dungsbereich-Abdeckung. 
Die Stärke von MANTIS 
liegt in seiner Effizienz. 
Leistungsfähige Gleitkom¬ 
ma-Arithmetik und ein 
spezieller Interpreter, 
der mit speziellen Tech¬ 
niken arbeitet und sich 
deutlich von anderen In¬ 
terpretern abzeichnet, 
sind die Vorteile dieser 


relativ neuen Program¬ 
miersprache. 

Innerhalb kurzer Zeit gab 
es von MANTIS Imple¬ 
mentationen für die gän¬ 
gigsten Rechnertypen. 

Von IBM-Rechnern unter 
DOS über VM-CMS und 
MVS gibt es MANTIS nun 
auch für die VAX von 
DEC, WANG/VS und 
Honeywell-Bull. 
MANTIS-Programme 
sind sehr flexibel und 
weisen eine erstaunlich 
hohe Portabilität auf. 

Sie sind völlig unabhän¬ 
gig vom Betriebssystem. 
MANTIS vereinigt in sich 
alle fortschrittlichen 
Technologien: vom inter¬ 
aktiven Bildschirment¬ 
wurf über die Darstel¬ 
lungsform des sogenann¬ 
ten „Filmablaufes“ bis 
hin zur vollständigen Si¬ 
mulation von Anwendun¬ 
gen, einschließlich der 
Darstellung aller Daten¬ 
flüsse und der program¬ 
mierten Entscheidungs¬ 
logik. Die dabei ange¬ 
wandte Verbindung zwi¬ 
schen Top-down- und 
Bottom-up-Lösungsansatz 
führt zu ausgezeichneten 
Programmen mit relativ 
geringem Wartungsauf¬ 
wand. 

MANTIS erlaubt auch 
bei komplexeren Proble¬ 
men schnellere Lösungen 
als mit herkömmlichen 
Programmiersprachen. 


41. Modula 2 

Der Name dieser höhe¬ 
ren Programmiersprache 
weist schon hin auf den 
modularen Aufbau der 
Programme. 

Modula 2 entstand aus 
einer Studie zur Pro¬ 
grammierung gleichzeitig 
ablaufender Prozesse: 
Modula 1. 

In Modula 1 haben die 
Module die Aufgabe so¬ 
genannter Monitore, Grup¬ 
pierungen gemeinsamer 
Variablen und ihrer Ope¬ 
ratoren. Monitore sind als 
kritische Programmab¬ 
schnitte gedacht, welche 
nicht gleichzeitig von ver¬ 
schiedenen Prozeduren 
durchlaufen werden 
dürfen. 


40 







Prsgraiaibeispiel zu HoduU 
Assesbler-Ieplementation 


1* IMPLEMENTATION MODULE Porti * 

jHmtimmiHitHHHHHfHHHHH 

I 

naae ('ports') 
title ports 
.z88 
I 

;***♦* EXPORT 
I 

inp: pop iy ; get return address 

pop hl ; address of 'data' in hl 
pop bc ; c contains 'portAdr' 
in a, (c) 
ld (hl), a 

jp (iy) j instead of push, ret 
I 

outp: pop iy ; get return address 
pop de ; 'data' is in e 
pop bc ; /portAdr' is in e 
out (c), e 

jp (iy) ; instaed of push, ret 
I 

;*<*»m«*m«*»»*ti**«**«*«*tt*tt*<t*** 

i 

end Tabelle 14: 


Die allgemeine Bedeutung 
und letztlich wichtigere 
für die Gliederung von 
Programmsystemen wur¬ 
de bei der Entwicklung 
erst später erkannt. 
Modula ist als „Nachfol¬ 
ger“ von Pascal von Prof. 
Klaus Wirth am Institut 
für Informatik (Ifl) in 
Zürich entwickelt wor¬ 
den und erhielt sehr 
schnell das Prädikat: 
„Pascal ohne die Nach¬ 
teile von Pascal“. 

Nicht nur der Programm¬ 
aufbau ist modular, son¬ 
dern auch die Compila¬ 
tion erfolgt modulweise. 
Die Sprachdefinitionen 
sind auf ein Minimum be¬ 
schränkt, dafür wird der 
Aufbau von Modulbiblio¬ 
theken unterstützt. Dies 
wird erreicht durch eine 
gesonderte Schnittstel¬ 
lenbeschreibung, welche 
als gesondertes Modul 
existiert, je nach Imple¬ 
mentation, also Instal¬ 
lation auf einem be¬ 
stimmten Rechnertyp. 
Folgende Merkmale von 
Modula 2 unterscheiden 
diese wesentlich von an¬ 
deren höheren Program¬ 
miersprachen: 

■ Namen können belie¬ 
big lang sein; 

ü Groß- und Kleinschrei¬ 
bung können unter¬ 
schieden werden; 

■ Konstantenarithmetik; 

■ Reihenfolge der Dekla¬ 
rationen ist nicht 
streng vorgeschrieben; 

■ Open Arrays in Proze¬ 
dur-Deklarationen ; 

■ ELSE-Variante beim 
CASE-Statement. 

Modula 2 setzt einigen 
Aufwand an Hardware¬ 
einsatz voraus: minde¬ 
sten 56-Kbyte-Arbeits- 
speicher, zwei Floppy- 
Laufwerke mit je 350- 
KByte-Kapazität. (Die 
minimale Konfiguration 
der notwendigen Files 
für den Compiler, den 
Linker und den Editor 
ist bereits 226 KByte 
groß.) 

Modula 2 ist ursprünglich 
für den Z80-Prozessor 
entworfen worden, un¬ 
ter dem Betriebssystem 
CP/M80. 

Wie bei vielen anderen 
compilierbaren Program¬ 


miersprachen muß für 
Modula 2 jeweils separat 

■ der Texteditor — 
zum Erstellen und 
Eingeben von Pro¬ 
grammfiles; 

■ der Compiler - 
zum Übersetzen der 
einzelnen Module 
und 

■ der Linker — 

zum Binden der ein¬ 
zelnen Module und 
Bibliotheksunterpro¬ 
gramme 

aufgerufen und gestar¬ 
tet werden. 

Die Bibliothek von Mo¬ 
dula 2 besteht ihrerseits 
ebenfalls aus Modulen 
und kann vom Anwen¬ 
der ergänzt werden. 

Das hat zur Folge, daß 
im Laufe der Zeit die 
einzelnen Modula 2- 
Programme immer kürzer 
werden können, da auf 


eine wachsende Anzahl 
von fertigen Problemlö¬ 
sungen in Form von Un¬ 
terprogrammen zurück¬ 
gegriffen werden kann. 
Die Bibliotheksmodule 
liegen dann bereits in 
übersetzter Form vor 
und brauchen nur noch 
an das neu geschriebene 
Programm gebunden zu 
werden (Link File). 

Der Compiler besteht aus 
vier Compiler-Pässen, das 
heißt, es sind vier Durch¬ 
läufe zur Übersetzung 
eines Modula 2-Program- 
mes nötig. 

Eine Aufstellung der 
beim Übersetzen gefunde¬ 
nen Fehler wird in einem 
gesonderten File (LISTE) 
abgelegt und kann dort 
zur Fehlerbeseitigung ein¬ 
gesehen werden. 

Hat das Programm die 
vier Compilerpässe fehler¬ 
frei durchlaufen, können 
die einzelnen Programm- 
Module untereinander 
und natürlich auch mit 


den Bibliotheksmodulen 
gebunden werden. Hierzu 
sind zwei weitere Pässe 
notwendig, die der Linker 
steuert. 

Programmbeispiel siehe 
Tabelle 13. 


Modula 2 bietet auch ein 
komfortables Assembler- 
Interfacing. Hierzu sind 
allerdings sehr genaue 
Kenntnisse über die 
Stacks und den Aufbau 
der Variablen notwendig. 
Modula ist eine moderne 
Programmiersprache, die 
sich besonders zur Kon¬ 
struktion von großen, 
modularen Software-Sy¬ 
stemen eignet. Der modu¬ 
lare Aufbau der Program¬ 
me hat sich als sehr vor¬ 
teilhaft erwiesen und ist 
gemeinsam mit der sepa¬ 
raten Übersetzung der 
Module als Garantie für 
effizienten Unterhalt 
und dauernde Konsistenz 
der Software verantwort¬ 
lich. 

Obwohl einfach in seiner 
Konzeption, hat sich das 
Modul als ein überraschend 
schwierig zu handhaben¬ 
des Hilfsmittel herausge¬ 
stellt. 

Module treten in den ver¬ 
schiedensten Erscheinungs¬ 
formen auf, so zum Bei¬ 
spiel als Package von Pro¬ 
zeduren, als Verwaltungs¬ 
instanz von Ressourcen, 
als Schnittstelle zur Hard¬ 
ware, als „Black Box“ 
zur Verarbeitung von Ob¬ 
jekten als Monitor und 
als Datenbasis. 

Das modulare Denken 
eröffnet neue Horizonte 
und führt zu weitreichen¬ 
den Konsequenzen, sogar 
für Betriebssystem-De¬ 
signer und Computer- 
Architekten. 

Programmbeispiel siehe 
Tabelle 14. 


42. mu-SIMP 

High-Level-Programmier- 
sprache für symbolische 
und halbnumerische Da¬ 
tenverarbeitung. 
mu-SIMP benutzt einen 
schnellen Interpreter, 
der nur wenig Speicher- 


41 








platz benötigt (7 KByte). 
mu-SIMP ist eine Spezial¬ 
entwicklung und daher 
kaum verbreitet: Das 
Hauptanwendungsgebiet 
ist die wissenschaftliche 
Mathematik. 


43. Natural 

Strukturierte non-proze- 
durale Programmierspra¬ 
che mit Schnittstellen zu 
Cobol und PL/1. Damit 
können Natural-Program- 
me von Cobol- oder PL/1 - 
Programmen aufgerufen 
werden, beziehungsweise 
umgekehrt. 

Natural ist im Vergleich 
zu den oben genannten 
eine relativ Junge“ Pro¬ 
grammiersprache, jedoch 
keine Weiterentwicklung 
von Cobol oder PL/1. 
Natural ist strukturierend 
(zum Beispiel kein GOTO- 
Befehl) und unterstützt 
die modulare Program¬ 
mierung. 

Nachteile von Natural: 
es können nur eindimen¬ 
sionale Tabellen verarbei¬ 
tet werden. 

Erstaunlich komfortabel 
hingegen ist die interakti¬ 
ve Programmierumge¬ 
bung mit Compiler, Test¬ 
programmen, Maskenge¬ 
nerator, Editor, Biblio- 
theks- und Datenver¬ 
waltung, DATA-Dictio- 
nary und Zugriffs-Schutz¬ 
möglichkeiten. 
Einsatzgebiet für die For¬ 
muliersprache Natural 
sind unter anderem Da¬ 
tenbanken. 

Natural ist mehr als eine 
der „neuen Programmier¬ 
sprachen“ (sie wird zur 
4. Generation gezählt). 
Natural stellt eine kom¬ 
plette Programmierumge¬ 
bung bereit. Integriert 
sind Compiler, Editor, 
Maskengenerator, Test¬ 
funktionen, sowie Biblio- 
theks- und Datenverwal¬ 
tung, Data-Dictionary 
und Zugriffsschutzmög¬ 
lichkeiten. Teilweise wer¬ 
den also schon Betriebs¬ 
system-Aufgaben über¬ 
nommen. Natural unter¬ 
stützt durch seine hervor¬ 
ragende Menütechnik das 
Prototyping von Pro¬ 
grammen. 

Die Handhabung von Na¬ 


tural ist nicht ganz un¬ 
problematisch. daher er¬ 
scheint diese Programmier¬ 
sprache nicht unbedingt 
geeignet für den unerfah¬ 
renen Programmierer. 
Optimal programmiert 
sind Natural-Applikatio- 
nen jedoch extrem 
schnell und benutzer¬ 
freundlich. 


44. NEAT 

NCR Elektronik Auto- 
coding Technique. 
Maschinenorientierte 
Spezialentwicklung der 
Firma NCR. NEAT ist 
eine NC-Sprache (Nume- 
ric Control) für die 
Steuerung von Werkzeug¬ 
maschinen. 


45. NELIAC 

Ein Algol-Dialekt (siehe 
unter Algol). 


46. NPL 

New Programming 
Language. 

Vorläufer der Program¬ 
miersprache PL/1 (siehe 
dort), und damit heute 
nicht mehr gebräuchlich. 

48. OPS-5 

OPS-5 ist eine Eigenent¬ 
wicklung der Firma DEC 
(Digital Equipment 
Corporation). 

Sie eignet sich besonders 
für die Anwendung in 
Expertensystemen und 
für Bereiche der kogniti¬ 
ven Wissenschaften im 
Rahmen der künstlichen 
Intelligenz. Darüber hin¬ 
aus unterstützt OPS-5 
auch die Lösung komple¬ 
xer Probleme im kom¬ 
merziellen Umfeld. 
Expertensysteme sind 
Datenbanken, welche sich 
aber von den konventio¬ 
nellen Datenbanken 
durch ihr „intelligentes“ 
Verhalten unterscheiden. 
Expertensysteme sollen 
die fachliche Kompetenz 
von Experten in Form 
von Sach- und Erfahrungs¬ 
wissen bereitstellen. 

Zu diesem Zweck wird 
das Wissen nicht nur in 
Form von Daten abgespei¬ 
chert, sondern auch durch 
Regeln verknüpft, klassi¬ 


fiziert und bewertet. Die 
Systeme sollen darüber 
hinaus heuristische Me¬ 
thoden und vages Wis¬ 
sen verarbeiten und nach 
den vorgegebenen Regeln 
aus dem vorhandenen 
Datenmaterial selbständig 
Schlüsse ziehen, das heißt 
Problemlösungen anbie¬ 
ten. 

Die Systeme können so 
dem Anwender bei der 
Problemanalyse helfen, 
sie dokumentieren ihre 
Vorgehensweise. 

Ein professionelles Exper¬ 
tensystem besteht aus 
fünf Abschnitten: 

1. Die „Wissensbasis“ ist 
der Grundstock. Hier ist 
das Experten-Wissen in 
Form von Fakten und 
Regeln abgespeichert. 

2. Die Abteilung „Wis¬ 
senserwerb“ beinhaltet 
Instrumente zur Aufnah¬ 
me und Integration von 
neuen Expertenwissen 

in das System, also hier 
in die Wissensbasis. Die¬ 
se Instrumente formulie¬ 
ren die neuen Informa¬ 
tionen so um, daß er¬ 
kannt werden kann, ob 
dieses Wissen bereits im 
System vorhanden ist. 
Lücken in der Wissens¬ 
basis können erkundet 
werden, usw. 

3. Ein weiterer Ab¬ 
schnitt des Systems do¬ 
kumentiert dem Anwen¬ 
der, welcher Lösungs¬ 
weg verfolgt wird und 
welche Ergebnisse das 
System ermittelt hat und 
mögliche Schlußfolge¬ 
rungen daraus. 

4. Die wichtigste Kom¬ 
ponente des Systems ist 
aber die “Inference 
Machine“, welche die 
Problemlösung steuert. 

Sie verarbeitet das Ex¬ 
pertenwissen der Wis¬ 
sensbasis und zieht hier¬ 
aus Schlußfolgerungen 
und Ableitungen. In be¬ 
stimmten Situationen 
kann die “Inference 
Machine“ auch beim An¬ 
wender nachfragen, also 
Zusatzinformation zum 
erfragten Problem abru- 
fen, um eindeutigere 
Schlußfolgerungen zie¬ 
hen zu können. 

5. Die Benutzerschnitt¬ 
stelle „Dialog“ verbindet 


das System schließlich 
mit der Außenwelt, also 
dem Anwender. Hier kön¬ 
nen Eingaben in das Sy¬ 
stem erfolgen und hier 
gibt das System auch In¬ 
formationen aus. 
Expertensysteme haben 
das Ziel, sowohl objek¬ 
tive Fakten, als auch 
menschliches Erfahrungs¬ 
wissen zu verarbeiten. 

Sie leisten also wesent¬ 
lich mehr, als einfache 
Datenbanken, die wie 
große Nachschlagewerke 
funktionieren. 

Auf diese Weise sollen 
Probleme gelöst werden, 
die aufgrund fehlender 
exakter Verfahren bisher 
nur durch erfahrungs- 
und bewertungsabhängige 
menschliche Entschei¬ 
dungen gelöst werden kön¬ 
nen. Doch an dieser Stel¬ 
le wieder zurück zu einer 
Programmiersprache, in 
der solche Systeme er¬ 
stellt werden können. 

Der OPS-5-Compiler wur¬ 
de in der code-optimieren- 
den Sprache BL1SS-32 
geschrieben (siehe dort). 
Der Anwender erhält da¬ 
mit einen leistungsfähi¬ 
gen kompakten Code. 
OPS-5 ist eine typische 
Kl-Sprache (künstliche 
Intelligenz), die mit Sym¬ 
bolen arbeitet. Sie kann 
eine Vielzahl von Lösungs¬ 
wegen erzeugen und da¬ 
mit für mehrere Probleme 
jeweils mehrere Lösungen 
erarbeiten. 

Ein solches Kl-Werkzeug 
bietet sich als computer¬ 
gestützter Lösungsweg 
an, wenn sich die geplan¬ 
te Anwendung konven¬ 
tionellen, auf Algorith¬ 
men beruhenden Lösun¬ 
gen entzieht oder der 
Problembereich häufigen 
Veränderungen unterwor¬ 
fen und nur schwer oder 
gar nicht einzugrenzen 
ist. 

OPS-5 ist auch eine Spra¬ 
che zur Entwicklung von 
Regelsystemen. Sie er¬ 
möglicht Problemlösun¬ 
gen unter Ausnutzung 
menschlicher Erfahrun¬ 
gen und menschlichen 
Wissens. 

Fortsetzung im näch¬ 
sten Heft 
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Interpreter oder Compiler? 


Es gibt eine große Anzahl verschiedener Programmier¬ 
sprachen, die jedoch alle eines gemeinsam haben: 
Programme, welche in einer Programmiersprache 
geschrieben sind (BASIC, FORTRAN, COBOL 
und andere) müssen zunächst übersetzt werden, 
bevor sie zur Ausführung gelangen können. 

Sie sind zwar unterschiedlich aufgebaut, aber je 
nachdem, auf welcher Anlage sie eingesetzt werden, 
in einer ganz bestimmten Programmiersprache verfaßt. 

Daher kann die Übersetzung immer nach gleichen 
Strukturen ablaufen, bleibt man bei der Betrachtung 
einer Programmiersprache. Diese Arbeit wiederum 
kann geradezu ideal von einem Computer 
übernommen werden. 


1. DER COMPILER 


N icht jedes Überset¬ 
zungsverfahren eignet 
sich für jede Anlage 
oder jeden Anwendungsbe¬ 
reich' der Programme. Die 
Übersetzungsverfahren sind 
von verschiedenen Faktoren 
abhängig: 

■ Die Verschiedenartigkeit 
von Programmiersprachen 
prädestiniert sie für ganz 
bestimmte Übersetzungs¬ 
verfahren. Je nach Anwen¬ 
dungsbereich bieten be¬ 
stimmte Übersetzungsver¬ 
fahren Vor- und Nachteile 
zum Beispiel bei der Feh¬ 
lersuche und der Korrek¬ 
tur. Manche sind sehr gu¬ 
te Hilfen bei der Pro¬ 
grammverbesserung. 

■ Die Übersetzungsart ist 
auch abhängig von der Ka¬ 
pazität und dem Aufbau 
des Computers. (Das Über¬ 
setzungsprogramm benö¬ 
tigt wertvollen Speicher¬ 
platz). Daher sind KByte- 
Angaben von Computeran¬ 
lagen (zumindest kleinerer) 
immer im Zusammenhang 
mit den verwendeten Über¬ 
setzungsmöglichkeiten zu 
sehen. 

Grundsätzlich unterscheidet 
man zwei Übersetzungsmetho¬ 
den: 

■ die einmalige Übersetzung 
durch einen Compiler 
■ die dauernde Übersetzung 
(Interpretierung) durch 
Interpreter. 

Es gibt aber auch Mischfor¬ 
men hieraus. 


Compiler sind ebenfalls 
Programme (in einer Program¬ 
miersprache geschrieben), mit 
deren Hilfe aus einem FOR- 
TRAN-Programm ein Maschi¬ 
nencode erzeugt wird, der 
vom Computer verarbeitet 
werden kann. Bekanntlich 
versteht die Maschine nur die 
Zustände „0“ und „1“. 


Man unterscheidet zwei Pro¬ 
gramm-Files: 

■ das SOURCE PROGRAM 
(Quellprogramm), welches 
vom Programmierer in einer 
höheren Programmiersprache 
geschrieben wird. Dieses Pro¬ 
gramm ist „lesbar“ für den 
Programmierer und bei einer 


strukturierten, klaren Pro¬ 
grammierung auch von ande¬ 
ren Personen nachvollzieh¬ 
bar. 

■ das OBJECT PROGRAM 
oder den OBJECT CODE, 
welcher aus einer vom Be¬ 
nutzer nicht mehr zu inter¬ 
pretierenden Folge von Zei¬ 


chen besteht, welche vom 
Computer verarbeitet werden 
können. 

Mit SOURCE und OB¬ 
JECT bezeichnet man eigent¬ 
lich also das gleiche Pro¬ 
gramm in zwei verschiedenen 


Darstellungsformen: einmal 
in der Programmiersprache 
für den Anwender, zum ande¬ 
ren in einem maschineninter¬ 
nen Code, den der Computer 
versteht. 

Aus diesem Grund gibt es 
nicht den Compiler schlecht¬ 
hin, sondern jeder Computer¬ 
typ, jede Programmiersprache 
hat den spezifischen Compi¬ 
ler: 

FORTRAN-Compiler für 
Computertyp A 

FORTRAN-Compiler für 
Computertyp B 

F ORTR AN -7 7-C ompiler 
für Computertyp A 
COBOL-Compiler für 
Computerty A 
usw. 

Wenn also die Rede vom 
Compiler ist, so ist immer ein 
bestimmter Compiler gemeint. 
Daher nennt man den Compi¬ 
ler immer im Zusammenhang 
mit seiner Programmiersrpa- 
che, die er „versteht“. Gute 
Compiler beschränken sich 
nicht ausschließlich auf die 
reine Übersetzung von Quell¬ 
programmen in Objektcode, 
sondern bieten Hilfen etwa 
bei der Fehlersuche. 

Hierin sind unter anderem 
Stärken und Schwächen von 
Compilern zu sehen. Es ist 
eben ein gewaltiger Unter¬ 
schied, ob ein Compiler mel¬ 
det, daß ein Fehler im Quell¬ 
programm vorliegt, oder ob er 
die Art und die Lokalisation 
des Fehlers gleich mitliefert. 

Ein weiteres Bewertungs¬ 
kriterium für die Leistungs¬ 
fähigkeit von Compilern ist 
die Compilergeschwindigkeit 


COBOL k. 


COBOL 



Maschinen- 

Programm " 


COMPILER 


* 

Code 


COBOL 

Bibliothek 


Sourceprogram Compilierung Objektcode 

—-► 
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und die Qualität des Object¬ 
codes, denn unterschiedliche 
Compiler (von verschiedenen 
Herstellern) liefern bei glei¬ 
chem Sourceprogramm oft 
unterschiedlichen Code, der 
unterschiedlich schnell ablau¬ 
fen kann. Während die Com¬ 
pilergeschwindigkeit in erster 
Linie den Programmierer 
interessiert, dürfte die Aus¬ 
führungsgeschwindigkeit des 
des Codes von allgemeinem 
Interesse sein. 

Man unterscheidet weiter¬ 
hin zwei Grundtypen von 
Compilern: den Einpaß-Com¬ 
piler und den Mehrpaß-Com¬ 
piler. 


Dieser Compiler wandelt 
jedes Sprachelement des 
Quellprogrammes in mehrere 
Elemente des Maschinencodes 
um. Eine Umkehrung dieses 
Vorganges ist also kaum noch 
möglich. 

Die Aufteilung eines Quell¬ 
programm-Befehls in mehrere 
Codes ist notwendig, da die 
Befehle höherer Programmier¬ 
sprachen sogenannte Makro¬ 
befehle sind, das heißt, sie 
enthalten ganze Befehlsse¬ 
quenzen für die Maschine. Ein 
Programmierer, der Program¬ 
me in BASIC schreibt, muß 
nichts über diese Befehlsfol¬ 
gen wissen, die der Rechner 
an das Diskettenlaufwerk 
gibt, um den Lesekopf auf 
der Diskette hin und her zu 
bewegen. 

Der Befehl READ bewirkt 
also nicht ausschließlich das 
Lesen von Daten von der Dis¬ 
kette, sondern zugleich das 
Suchen und Kontrollieren auf 
Plausibilität sowie die Bewe¬ 
gungen des Lesekopfes. Ein 
Teil dieser Aufgaben wird na¬ 
türlich vom Betriebssystem 
und von Kontrollern übernom¬ 
men, aber eben der Befehl 
READ löst alle diese Aktivi¬ 
täten aus und liefert hierzu 
auch die notwendigen Infor¬ 
mationen. Diese Vorgänge 
werden dem normalen Anwen¬ 
der - wenn überhaupt — nur 
bei auftretenden Fehlfunk¬ 
tionen bewußt. 


Die Aufschlüsselung beim 
Übersetzen hat natürlich den 
Nachteil, daß eine Überset¬ 
zung nur in einer Richtung 
stattfinden kann, da einzelne 
Maschinenbefehle abhängig 
sind von ihrer Umgebung im 
Programm, die Anweisungen 
der höheren Programmierspra¬ 
che jedoch nicht, zumindest 
nicht unmittelbar. 

Der Vorteil des Einpaß- 
Compilers ist in der Übertrag¬ 
barkeit der Quellprogramme 
zu sehen. Diese Programme 
werden nicht maschinenorien¬ 
tiert, sondern können pro¬ 
blemorientiert geschrieben 
werden. Dieser Vorteil gilt für 


alle Compiler- und Interpre¬ 
tertypen im Ggensatz etwa 
zur Assembler-Programmie¬ 
rung. 

Aus der starken Problem¬ 
orientierung der Programme 
(Vorteil bei der Lösung von 
Problemen) folgt zwangsläu¬ 
fig eine Maschinenorientie¬ 
rung des Compilers, denn an 
irgendeinem Punkt im System 
muß zwangsläufig der große 
Sprung stattfinden in der 
Reihe: Mensch-Sprache-Com- 
piler-Maschine. 

Das Quellprogramm ist nur 
auf das zu programmierende 
Problem fixiert. Die Maschi¬ 
nenverständlichkeit (durch 
Compilierung) erfolgt aus¬ 
schließlich durch den Compi¬ 
ler des entsprechenden Gerä¬ 
tes. Der Programmierer muß 
sich also bei der Formulie¬ 
rung des Problems zunächst 
nicht mit dem Computer aus¬ 
einandersetzen, er kann sich 
auf einer höheren Hardware- 
Ebene bewegen. 

Da das Programm auf ver¬ 
schiedenen Anlagen laufen 
kann, spricht man von por¬ 
tabler Software. 

Nachteil der Einpass-Com¬ 
pilierung ist jedoch, daß eine 
Codeoptimierung nicht statt- 
finden kann. 


1.2. Mehrpaß- 
Compiler 

Hier wird die Compilierung 
eines Programmes in mehrere 
Schritte aufgeteilt: das Pro¬ 
gramm in einer Programmier¬ 
sprache wird zunächst in eine 
Zwischensprache übersetzt, 
bevor es ein zweites Mal über¬ 
setzt wird, diesmal in Maschi- 
nen-Code. 

Die erste Übersetzung in 
die sogenannte Intermediate 
Language (Zwischensprache) 
ist maschinenunabhängig. 
Erst darauf folgt die maschi¬ 
nennahe Übersetzung der 
Zwischensprache. 

Der Mehrpaß-Compiler 
hat den Vorteil, daß auch 
Teile des Compilers maschi¬ 
nenunabhängig sind (der erste 
Teil) und durch die zweimali¬ 
ge Übersetzung ein hohes 
Maß an Code-Optimierung er¬ 
reicht werden kann. 

Nachteile sind in dem grö¬ 
ßeren Aufwand zu sehen, der 
getrieben werden muß, so¬ 
wohl in zeitlicher Hinsicht als 
auch in bezug auf den größe¬ 
ren Speicherplatz, der benö¬ 
tigt wird. 

Die Codeoptimierung hat 
zur Folge, daß die Ausfüh¬ 
rungszeiten der Programme 
minimiert werden können. 


Im Gegensatz zum Compi¬ 
ler wird hier nicht das gesam¬ 
te Quellprogramm auf einmal 
in Maschinensprache über¬ 
setzt, sondern immer nur die 
Programmteile, die gerade 
durchlaufen werden. 

Der Interpreter ist also 


ständig gleichzeitig mit dem 
ablaufenden Programm im 
Computer am arbeiten (wie 
ein Simultan-Dolmetscher). 
Beim Ablauf des Programmes 
werden die einzelnen Pro¬ 
grammanweisungen in eine 
Zwischensprache übersetzt 
(entspricht dem ersten Teil 
eines Mehrpaß-Compilers) 
und diese Zwischen spräche 
sofort für die Maschine inter¬ 
pretiert. 

Es existiert also nie ein 
kompletter Objekt-Code des 
Programmes, im Gegenteil 
zum Compiler. 

Da nie eine komplette 
Übersetzung des Quellpro¬ 
grammes erfolgt, muß nicht 
erst ein der Programmausfüh¬ 
rung vorausgehender zeitauf¬ 
wendiger Prozeß stattfinden 
wie bei der Compilierung; das 
Programm kann sofort gestar¬ 
tet werden. Hierunter leidet 
jedoch die Ausführungsge¬ 
schwindigkeit des Program¬ 
mes, da beispielsweise bei zu 
durchlaufenden Schleifen die¬ 
se bei jedem Durchlauf neu 
interpretiert werden müssen. 

Auch ist die Ausnutzung 
der Kapazität der Anlage 
schlechter als bei Compilern. 
Der Interpreter muß ständig 
neben dem Programm im 
Speicher vorhanden sein, im 
Gegensatz zu dem Compiler, 
der nur für die Dauer der 


Übersetzung Speicherplatz 
belegt, da er später für die 
Programmausführung nicht 
mehr benötigt wird. 

Als Vorteile bei der Arbeit 
mit einem Interpreter wären 
hier die besseren Korrektur¬ 
möglichkeiten zu nennen, da 
nicht nach jeder Fehlerbesei¬ 
tigung im Quellprogramm 
eine erneute komplette Über¬ 
setzung erfolgen muß. 


1.1. Einpaß-Compiler 


2. DER INTERPRETER 


_ 



Quellprogramm 

► 

INTERPRETER- 

Maschine 



Programmausführung 
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SERVICE m 


Auch hier ist die Portabi¬ 
lität der Programme gegeben, 
allerdings in gewissen Gren¬ 
zen. Im Gegensatz zum Ein- Mit Assembler wird so- 
paß-Compiler hat ein Inter- wohl die Sprache als auch der 

preter selbst eine recht gute dazugehörige Übersetzer be- 

Portabilität. zeichnet. 

Bekannteste Beispiele gu- Die Befehle in Assembler 
ter Interpreter sind die in den entsprechen genau den Ma- 

Commodore-Homecomputern schinenbefehlen, sie sind nur 

installierten. Hier wie auch der Lesbarkeit wegen als 

bei vielen Rechnern dieser mnemotechnische Befehle 

Klasse ist das Interpreterpro- verschlüsselt, 

gramm fest in Chips der Ma- Der Assembler (hier Über- 
schine integriert (ROM). Setzungsprogramm) überträgt 

lediglich jedem mnemotech¬ 
nischen Befehl den entspre¬ 
chenden Maschinenbefehl. 


3. ASSEMBLER 

Vorteile des Assemblers Die Sprache Assembler ist 
werden in der Grafik sicht- allerdings streng maschinen¬ 
bar: Die Übersetzung ist in orientiert und daher nicht 

beiden Richtungen möglich, portabel, was als großer Nach- 

da jeder Assemblerbefehl ge- teil anzusehen ist. Außerdem 

nau einem Maschinenbefehl ist sie durch fehlende Pro¬ 
entspricht. blemnähe wesentlich schwie- 

Diese Tatsache wirkt sich riger zu handhaben. Assemb- 
günstig aus, sowohl auf die ler gehört aus diesen Grün- 

Ausfiihrungsgeschwindigkeit den auch nicht zu der Fami- 

der Programme (sie ist we- lie der Hochsprachen (BA- 

sentlich kürzer als bei an- SIC, FORTRAN und andere), 

deren Übersetzungsverfahren) Dipl-Ing. (FH) Oliver Rosenbaum 

als auch auf den benötigten ■ 

Speicherplatz. 



Nachtrag zu CW 3/88 an> wenn Bi i ei " s 

« in Adresse eins auf null 


Hierzu einige PEEKs 
und POKEs: 


mit dem 


Port 


Die Schreibleitung, Pin 
fünf am Kassettenport, er 
möglicht uns, eine Span¬ 
nung von null oder drei 
Volt auszugeben. Die 
Leseleitung, Pin vier, kön¬ 
nen wir zum Messen von 
Signalen verwenden. Drei 
Volt an der Schreibleitun^ 


gesetzt wird. Besitzt be¬ 
sagtes Bit den Wert eins, 
so haben wir null Volt 
auf der Leitung. 

Zum Messen von Signa¬ 
len über die Leseleitung ist 
Bit vier in Adresse eins 
zuständig. Ist dieses Bit 
gesetzt, so liegt High an, 
anderenfalls Low. 


POKE 1,PEEK(1) AND 
253:REM 3V SENDEN 
POKE 1 ,PEEK(1) OR 2 
:REM OV SENDEN 
L=PEEK(1) AND 224 
:REM HIGH bei LOO 
L=PEEK(1) AND 224 
:REM LOW bei L=0 

ö.m.D 


Schaltadapter am Kassettenrekorderanschluß C-16/116/Plus 4 B.Welte 



Rekorderanschl. Schaltbild Nc 1 
C-16/116 /Plus4 
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Hatte bisher unser 
Checksummer an Buch¬ 
stabenvertauschungen 
nichts auszusetzen, so 
zeigt er sich nun nicht 
mehr so kulant. 

Ob Sie mit der alten 
Version nun eingegeben 
hatten: 

10 print ”ab” 
oder 

10 print “ba”, 

der Checksummer 
brachte in beiden Fällen 
die Prüfsumme < gk > . 
Leicht kann es Vorkom¬ 
men, daß beim schnel¬ 
len Tippen, besonders 
im Zehnfingersystem, 
die Taste, die eigentlich 
erst als übernächste dran¬ 
kommen sollte, ein wenig 
zu früh erwischt wird. 
Dem Checksummer, der 
lediglich die Ascii-Werte 
der Buchstaben addierte, 
konnte dieses natürlich 
nicht auf fallen. Was also 
tun? Ob etwas früher oder 
später addiert wird, än¬ 
dert nichts am Resultat 
der Summe. Anders ist 
es, wenn man zwei Ver¬ 
knüpfungsarten kombi¬ 
niert. So ist z.B. 2*30+40 
etwas anderes als 2*40+ 
30. Und genau dieses war 
dann die Lösung. Die 
Summe wird nun einfach 
durch eine Linksver¬ 
schiebung vor jeder Addi¬ 
tion verdoppelt. Da¬ 
durch, daß im Falle, 
wenn das Ergebnis größer 
als 255 ist, der dabei ent¬ 
stehende Übertrag als 
Wert 1 zusätzlich addiert 
wird, verflüchtigen die 
Werte der am Anfang der 
Zeile gefundenen Codes 
sich nicht nach 8 weite¬ 
ren Zeichen. Damit bleibt 
nicht nur die Aussage¬ 
kraft der Prüfsumme voll 
erhalten, sondern erfä*' " 


sogar eine erhebliche 
Steigerung. Und vor allen 
Dingen wird nur eine 
klitzekleine Änderung er¬ 
forderlich, die dieses zu 
vollbringen, in der Lage 
ist. Ein einziges Byte ist 
nur zu ändern. Wir tun 
dieses mit “poke 345,10” 
in der Zeile 470. Dadurch 
wird das hier ursprünglich 
ansässige CLC (Clear Car¬ 
ry) durch ASL (Arithme¬ 
tik Shift Left) ersetzt. 
Die nachfolgende Addi¬ 
tion mit ADC (Addiere 
mit Carry) addiert den 
Ascii-Code des gefunde¬ 
nen Zeichens und den 
nach links herausgeshifte- 
ten Übertrag. Da einige 
unserer Leser beklagten, 
daß das Checksummer- 
listing nachher noch im 
Programmspeicher stehen 
würde, haben wir diesem 
noch mit einem “new” 
abgeholfen. New bzw. 
neu ist nun folgendes. 

10 print “ab” ergibt die 
Prüfsumme <jd > 

10 print”ba” die Prüf¬ 
summe <jf> 

Sie brauchen den 
Checksummer nicht neu 
einzutippen. Alles, was 
Sie tun müssen, ist, die 
Zeile 470 anzufügen. An 
der Bedienung des Check¬ 
summers hat sich nichts 
geändert. Die Eingabehin¬ 
weise bleiben daher wie 
gehabt. 


EINGABEHINWEISE 


Am rechten Rand jedes 
Listings, jeweils am Ende 
einer Eingabezeile, finden 
Sie zwei Buchstaben zwi¬ 
schen einem Kleiner- und 
einem Größerzeichen ein¬ 
geschlossen. Diese dürfen 
Sie nicht mit in Ihr 


Listing eintippen, son¬ 
dern sie dienen Ihnen zur 
Überprüfung Ihrer Ein¬ 
gabe. 

Zwischen dem Kleiner¬ 
und dem Größerzeichen 
am rechten Rand be¬ 
finden' sich zwei Buch¬ 
staben. Mit einem speziel¬ 
len Programm können Sie 
beim Eintippen Ihre Ein¬ 
gabe auf ihre Richtigkeit 
überprüfen. Dieses Pro¬ 
gramm, der Checksum¬ 
mer, sorgt nämlich dafür, 
daß nach erfolgter Zeilen¬ 
eingabe am linken oberen 
Bildschirmeck zwei Buch- 


ERST SICHERN, DANN 
AUSPROBIEREN 


staben ausgegeben wer¬ 
den. Wenn diese Buch¬ 
staben nicht mit den vor¬ 
her erwähnten Buchsta¬ 
ben in unserem Listing 
übereinstimmen, so kön¬ 
nen Sie davon ausgehen, 
daß Sie sich vertippt 
haben und können sich 
so die Zeile nochmals 
näher ansehen, ob Sie 
Ihren Eingabefehler fin¬ 
den. Wenn Sie dann alles 
richtig getippt haben, so 
stimmen die Buchstaben 
überein und Sie können 
sich getrost der nächsten 
Zeile zuwenden. 

Das Checksummer- 
listing hat noch keine 
Prüfsummen. Seien Sie 
deshalb besonders auf¬ 
merksam, daß alles paßt 
und speichern Sie dieses 
Programm unbedingt ab, 
bevor Sie es starten! Bei 
einem Tippfehler würde 
es sich wahrscheinlich auf 
Nimmerwiedersehen ver¬ 
abschieden und Sie müß¬ 
ten die ganze .Arbeit ver¬ 
mutlich nochmals ma¬ 


chen. Wenn Sie es gestar¬ 
tet haben, so geschieht 
nichts Besonderes. Der 
Computer meldet sich 
einfach kurz darauf mit 
,,READY”, und das war 
auch schon alles. Alles 
sollte nun wie immer 
funktionieren, mit der 
kleinen Ausnahme, daß 
nunmehr nach jeder Ein¬ 
gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze Basic- 
zeile aus unserem Heft 
her und testen sie aus. 
Wenn die Summen über¬ 
einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu¬ 
kunft viel weniger passie¬ 
ren, als vorher. 


EINER FÜR ALLE, EIN 
ECHTES UNIVERSAL¬ 
PROGRAMM 


Unseren Checksummer 
können Sie verwenden, 
ob Sie einen C16/116/ 
Plus4 oder ob Sie einen 
C64 oder gar einen CI 28 
haben. Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich im 
40-Zeichenmodus sind. 
Nachdem Sie den Check¬ 
summer geladen und ge¬ 
startet haben, können Sie 
Ihr Basicprogramm ein¬ 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, 
Sie können Kürzel ver¬ 
wenden und, ob Sie ein 
paar Leerzeichen melir 
oder weniger verwenden, 
der Checksummer läßt 
sich dadurch nicht aus 
der Fassung bringen. Ein 
bißchen Vorsicht sollte 
man allerdings walten 
lassen, wenn man Pro¬ 
gramme eingetippt hat, 
in denen Peeks und Pokes 
Vorkommen. Es wird 
zwar nicht besonders 
häufig Vorkommen, aber 
es könnte bisweilen ge- 
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10 rem =checksummer==c16 c64 c128== 
20 rem ( p) 05/87 commodore weit == 

40 rem (c) alfons mittelmeyer == 

50 rem == 

60 rem c16/1 16/p1us4 = = 

70 rem c64 -- 

80 rem c128 (40-zeichen) 

100 rem - 

110 rem grundroutine (c16) 

120 rem - 

130 data 165,059,072, 165,060,072,032 
140 data086,137,104,133,060,104,133 
150 data059,152,072,160,000,165,020 
160 data024,101,021,170,024,144,01 1 
170 data20 1,032,240,006, 138,024, 113 
180 da t a059,234,170,200,177,059,234 
190 data208,240,169,031,072,138,074 
200 data074,074,074,07 2, 138,041,015 
205 da t a 072, 169,031,072, 162,003, 104 
210 data024,105,129,157,000,012,202 
220 data016,246,104,168,096 
230 1t=peek(772):ht=peek(773) 

240 fori=312to386:readx:pokei,x:nex 
t 

250 iflt<>124then350 

260 rem - 

270 rem anpassung c64 

280 rem - 

290 fori=312to317:pokei,234:next 
300 fori=321to326:pokei,234:next 
310 fori = 1to6:readad:readx:pokead , x 
: ne x t 

320 poke380,4:poke319,lt:poke320,ht 
:goto430 

330 data346,121,347,000,348,002 
340 data351,185,352,000,353,002 
350 if1t<>13then430 

360 rem - 

370 rem anpassung c128 (40 Zeichen) 

380 rem - 

390 restore410:poke332,22 
400 poke335,23:goto310 
410 data313,061,316,062,323,062 
420 data326,061,347,061,352,061 
430 poke772,056:poke 773,1 

440 rem - 

450 rem ergaenzung 10/87 

460 rem - 

470 poke 345,10:new 

490 rem = fuer hefte cw 7/87 bis = 
500 rem = cw 9/87 sowie cw128 5/87= 
510 rem = und c16 6/87 ist die 
520 rem = poke-anweisung in zeile = 
530 rem = 470 wegzulassen = 


schehen, dab nach dem statt Leerzeichen. Wenn 
Laufenlassen eines Pro- Ihnen nun aber Leer¬ 
grammes weder der Zeichen besser gefallen, 
Checksummer noch sonst so liefert der Checksum- 
etwas mehr funktioniert, mer natürlich eine fals .he 
auch wenn dies bisher Summe. Wenn Sie diese 
ohne Checksummer nicht Richtigkeit überprü'en 
der Fall gewesen sein wollen, so können Sie 
sollte. Also bitte sichern dies tun, indem Sie sie 
Sie in jedem Falle Ihre zuerst einmal so wie im 
Programme, bevor Sie sie Heft abtippen, und nach- 
ausprobieren. her, nachdem Sie sie nach- 

Ein paar Dinge sollten geprüft haben, einfach 
Sie noch wissen. Wir wieder die Punkte durch 
drucken in unseren Li- Leerzeichen ersetzen, 
stings des öfteren Punkte A. Mittelmeyer 

MONITOR 


CHECKMGN 

40 rem checkmon =============== c iß <cn> 

50 rem (p) commodore weit team <ke> 

60 rem =========================== <nk> 

70 rem (c) by a.mittelmeyer <ag> 

80 rem c16/116/plus4 <ki> 

90 rem =========================== <jg> 

100 fori=312to398:reada <ei> 

110 pokei,a:next <ep> 

120 data 132,218,108,219,0,132,219 <oe> 
130 data 164,218,76,75,236,201,62 <nk> 
143 data 208,249,165,161,10,101 <j C > 


150 data 162,160,7,10,113,161,136 <ej> 
160 data 16,250,133,216,169,30,133 <oh> 
170 data 217,169,62,160,97,208,220 <mk> 
180 data 198,217,208,218,160,105 <ai> 
190 data 208,212,701,13,240,4,164 <ha> 
200 data 218,24,96,169,60,160,68 <lh> 
210 data 32,61,1,165,216,32,16,251 <ec> 
220 data 169,62,160,5,208,2,169,32 <om> 
230 data 32,75,236,136,208,248,169 <ol> 
240 data 13,208,176,219,68,220,1 <go> 
250 data 804,56,805,1 <hn> 

260 fori=1to4:reada:readb:pokea,b <lm> 
270 nextrnew < ji > 

280 rem ========e=n=d=e=========== <cc> 

"CHECKMON" ist eine unerlaessliche Hil¬ 
ft zur Eingabe von Maschinenprogrammen. 
Laden und starten Sie "Checkmon" und 
g^hen dann mittels MONITOR in densel¬ 
ben. Wenn Sie sich nun z.B. mit 'M1000' 
einen Speicherbereich ansehen, oder 
Hexzahlen eingeben, so erscheint rechts 
die Pruefsumme anstatt der Asciicodes. 
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TIPS & TRICKS 


GUT SORTIERT 
IST HALB GEFUNDEN 

Daten in den Computer einzutippen, sie wieder auf 
dem Bildschirm oder Drucker auszugeben, ist für die 
meisten ein Kinderspiel. Schwieriger wird's allerdings, 
wenn's darum geht, gezielte Ordnung in eine Datei zu 
bringen. COMMODORE WELT stellt Ihnen die ge¬ 
bräuchlichsten Sortierroutinen vor. 


Irgendein Schlaumeier hat einmal das geflügelte Wort 
von sich gegeben: „Die hälfte seines Lebens sucht der 
Mensch vergebens...“. So banal der Spruch auch 
klingt, ein Körnchen Wahrheit steckt doch drin. 

Jede Kartei, jedes Verzeichnis richtet sich nach ge¬ 
wissen Suchkriterien aus. Der gewünschte Name, die 
gesuchte Adresse soll ja ohne großen Zeitverlust mög¬ 
lichst nervenschonend gefunden werden. Bei der Da¬ 
teiablage im Computer ist der Idealfall, die geforder¬ 
ten Daten auf Knopfdruck ab rufen zu können. 

Es gibt verschiedene Möglichkeiten, zum Ziel zu 
kommen. Da wir ziemlich sicher sind, daß der größte 
Teil unserer Leser in BASIC programmiert, wollen 
wir Ihnen hier ein paar Sortierunterprogramme vor¬ 
stellen. Die Bezeichnung „Unterprogramme“ sagt es 
eigentlich schon: Sie sind dazu gedacht, irgendwo in 
einer Ihrer eigenen Software-Entwicklungen einge¬ 
baut zu werden. 


SORTIEREN FÜR LEICHTERES SUCHEN 


Suchen und Sortieren arbeiten Hand in Hand. Es ist 
für den Computer ungleich einfacher, aus einer be¬ 
reits sortierten Datenmenge das Richtige herauszu¬ 
finden, wobei es keine Rolle spielt, ob es sich um nu¬ 
merische Daten (Zahlen) oder Texte (Strings) handelt. 
Bei einer vorsortierten Datei können zwei Suchme¬ 
thoden programmiert werden: 

a) Durchsuchen sämtlicher Daten (Wörter, Nummern, 
Texte), 

b) „ITalbierungs“-Methode, auch binärer Suchmodus 
genannt. 

Keiner großen Erklärung bedarf der erste Punkt. 
Wenn Sie den Namen Meier suchen, so durchforstet 
Ihr Computer alle zur Verfügung stehenden Daten, 
von Anfang bis Ende, bis er ihn gefunden hat. Ihr 
Pech, wenn die Datenmenge recht groß ist, dann dau¬ 
ert es eben seine Zeit. 

Ein ganzes Stück schneller geht es mit der „Halbie¬ 
rungsmethode“ vonstatten. Hier ist aber Vorausset¬ 
zung, daß die Daten bereits sortiert sind. Sucht der 
Computer nach einem bestimmten Wort oder einer 
Zahl, so müssen Sie ihm ein „Erkcnnungsmerkmal“ 
angeben, das der Begriff besitzt. Am einfachsten sind 
für die meisten Programmierer die ASCII-Werte der 
Zeichen auf der Commodore-Tastatur. 

Der Buchstabe “A“ beispielsweise hat den ASC- 
Code 65, „B“ liegt um eins höher, also bei 66. Am be¬ 


sten prüfen Sie’s nach mit PRINT ASC(“A”), oder 
welches Zeichen Sie auch immer vorziehen. Zurück 
zu unserem Meier: Bei einem sortierten Datenfeld 
stellt der Computer fest, daß dieser Name mit dem 
von Ihnen vorgegebenen Merkmal (ASC-Wert) erst in 
dem Teil des Datenfeldes beginnen kann, dessen ASC- 
Werte gleich oder größer 77 sind (das ist nämlich der 
ASC-Wert von „M“). Das Gesamtfeld wird also hal¬ 
biert, das verbleibende ebenso. So geht es weiter, bis 
nur noch zwei zu durchsuchende Elemente übrig sind, 
wovon dann eines todsicher das gewünschte ist. So 
weit scheint der Sinn des Sortierens einleuchtend zu 
sein. Nur: wie stellt man’s an? 

Es gibt viele Arten von Sortiermethoden, wovon 
einige allerdings recht unterschiedliche Sortierzeiten 
für große Datenmengen benötigen: Einfüge-, Tausch-, 
Einzelbyte- und Selektierungsmethode. Diese Klassi¬ 
ker wurden bereits zu Anfang der BASIC-Program- 
mierung entwickelt, haben aber bis heute von ihrer 
Effizienz nichts verloren. 


DIE INSERT-METHODE: AM HÄUFIGSTEN 
ANGEWANDT 


Bei der Insert-Methode macht’s der Computer ganz 
unkompliziert: Er beginnt bei der ersten Angabe und 
vergleicht sie mit der nächsten. Sie ist kleiner als die 
erste, so wird sie vor dieser eingefügt (daher der Na¬ 
me). Das dritte Element wird nun mit dem zweiten 
verglichen und ebenso behandelt, bis alle Datensätze 
und -felder „gecheckt“ sind. 

Die Insert-Methode ist die wohl simpelste, aber 
nicht unbedingt langsamste Sortierroutine. 

• |ui\IMITT EL BflREAÜSWAiTL: SELECTIO« 

Ein weiterer Sortieralgorithmus, der neben dem Ein- 
fügeprinzip zusätzlich das des Tauschens verfolgt, ist 
die Auswahl-Methode. Auch hier werden zwei For- 
Next-Schleifen verwendet. Die erste beginnt beim 
höchsten Element des Datenfeldes und arbeitet sich 
vor bis zum nächsten. Die zweite Schleife stellt die 
einzelnen Datenfelder, von vorne beginnend, dage- 
gen. 

Der Grundgedanke dabei ist, daß das momentan 
größte Element an die letzte Stelle des gesamten 
Arrays gebracht wird. Die Größe des Datensatzes wird 
jetzt um Eins reduziert, dann erneut nach dem größ¬ 
ten Teileelement gesucht. Das wird wiederum hinten 
angefügt, ohne das vorher an die letzte Stelle gebrach¬ 
te Element zu beeinflussen, da dieses ja von der Ge¬ 
samtmenge abgetrennt wurde. Ist nach den verschie¬ 
denen Durchläufen nur noch ein Teilelement übrig¬ 
geblieben, so ist dieses — logischerweise — das erste. 


VORSORTIEREN BRINGT'S NICHT IMMER 

Allerdings sind mit der Selektier-Methode die besten 
zeitlichen Ereignisse nur dann zu erzielen, wenn kei¬ 
ne noch so grobe Vorsortierung vorliegt. Dann kann 
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es nämlich sein, daß sich die höchsten Elemente be¬ 
reits ziemlich am Ende des Arrays befinden, die Se- 
lektier-Routine aber unverdrossen von vorne zu su¬ 
chen beginnt. Bei einem zufällig entstandenen Daten¬ 
satz werden die besten Ergebnisse erzielt. 

HAT NICHTS MIT KAUGUMMI ZU TUN: 
BUBBLESORT 


Bubble Sort ist wohl eine der bekanntesten und am 
häufigsten benutzten Sortierroutinen. Sie arbeitet 
mit dem Prinzip des Tauschens. Das erste Element 
des gesamten Arrays wird mit dem folgenden vergli¬ 
chen. Ist es größer, so wird ausgetauscht. Auf diese 
Weise gelangt das größte Element des Datensatzes 
automatisch ans Ende, was ja auch der Sinn der 
Übung war. 

,,Bubble“ bedeutet soviel wie „Luftblase“ und be¬ 
schreibt leicht humorig die Art, sich - bildlich ge¬ 
sprochen - das jeweils größte Datenelement durch 
die ganze Sortierroutine hindurch bis ans Ende des 
Arrays bewegt. Der Unterschied zu den bereits er¬ 
wähnten Einfügemethoden besteht darin, daß Bubble 
Sort beim größten Datenelement zu sortieren be¬ 
ginnt, nicht beim kleinsten. Der Zeitaufwand dürfte 
in etwa derselbe sein. 


DIE ROUTINE NACH SHELL 


Der nächste Sortier-Algorithmus, nach dessen Erfin¬ 
der benannt, hat seit nahezu dreißig Jahren unverän¬ 
dert seine Gültigkeit. Obwohl Shell ebenfalls das 
Prinzip des Einfügens verfolgt, ist der Aufbau der 
Routine doch ein bißchen komplizierter. Es werden 
nämlich nicht nur unmittelbar aneinander grenzende 
Daten miteinander verglichen, sondern vor allem ent¬ 
fernt liegende, (etwa der erste mit dem sechsten). 
Dieser Modus ist im Programm vorzugeben. 

So wird eine Art Vorsortierung erreicht. Die ent¬ 
sprechenden Daten werden auf neue Variablen über¬ 
tragen und ebenfalls wieder sortiert, diesmal aber mit 
reduzierten Abständen, beispielsweise das erste mit 
dem vierten. Unser Sortiersieb wird auf diese Weise 
immer enger, so daß zum Schluß nur noch der Einser- 
Schritt übrig bleibt, was gleichbedeutend mit einer 
exakten Sortierung ist. 


HILFSROUTINE: EIN FÜGEN - 

Genau genommen besteht dieser Sortiermodus aus 
zwei Sortierroutinen, denn die Grobsortierung über¬ 
nimmt das bereits bekannte Insert. Da jetzt dem 
Hauptprogramm bereits vorbearbeitete Daten vorge¬ 
legt werden können, geht die weitere Abarbeitung 
sehr rasch. Shell Sort bewährt sich ideal bei recht 
großen Datensätzen (Adressen, Text) mit vielen Ein¬ 
zelelementen. 


TREFFENDER NAME: QUICKSORT __ 

Der nächste Sortier-Oldie, den wir uns ansehen, 
heißt Quick Sort. Er wurde etwa zur selben Zeit wie 
Shell Sort entwickelt; sein Erfinder heißt Roare, 
ebenfalls ein Amerikaner. Quick Sort, die wohl ge¬ 
bräuchlichste Sortierroutine, vermutlich weil sie bei 
sehr großen Datenmengen einwandfrei die schnellste 
ist. 

Bei kleineren Feldern haben Insert- und Selektier¬ 
methode die Nase vorn, einfach deswegen, weil sie 
viel simpler aufgebaut sind und der Computer nicht 
so viele Programmschritte abarbeiten muß. Bei großen 
Arrays dagegen macht so ein einfacher Algorithmus 
stur seine Programmschritte, auch wenn die Sortie¬ 
rung so gut wie abgeschlossen ist. Eine „intelligente“ 
Routine wie Quick-Sort erkennt das aber beizeiten 
und ist dadurch, obwohl softwaretechnisch weit kom¬ 
plizierter angelegt, viel schneller fertig. 

Aus dem gesamten Array wird irgendein Element 
herausgezogen und abgesondert, weil es ab sofort als 
Vergleichsmuster für alle weiteren Datenelemente fun¬ 
giert. Nach dem Motto: „Kleiner als“ oder „größer 
als“ werden jetzt die übrigen Daten links oder rechts 
von unserem Muster plaziert. Die erste Vorsortierung 
ist damit erreicht. 

Nun wird jedes so gewonnene Array (das mit den 
kleineren und das mit den größeren Werten) genauso 
behandelt wie das gesamte Datenfeld vorher: wieder 
ein Vergleichsmuster herausgezogen und wieder ein 
„Kleiner“ und „Größer“-Datensatz geschaffen. Auf 
diese Weise wird die Einteilung immer ,feiner 4 , bis 
das fertig sortierte Array vor uns steht. Ideal für die¬ 
sen Sortieralgorithmus erweist sich natürlich die Aus¬ 
wahl des Vergleichselements aus der Mitte der Teil¬ 
datensätze. 

AUF ANWENDUNG UND MENGE KO M MT ES A N 

Welchen der vorgestellten Algorithmen Sie künftig für 
Ihre selbstfabrizierten Dateiverwaltungen verwenden 
möchten, überlassen wir Ihnen und dem dafür vorge¬ 
sehenen Anwendungszweck. Beachten Sie bitte dabei 
immer die Menge der eingegebenen und zu sortie¬ 
renden Daten sowie den Grad der bereits bei der Ein¬ 
gabe vorliegenden Grobsortierung. 

Quick Sort beispielsweise ist bei zufällig zusammen¬ 
gewürfelten Werten am effektivsten. Bei einer nahezu 
perfekt alphabetisch geordneten Datei kann es aber 
ohne weiteres sein, daß Bubble- oder Insert Sort um 
einiges schneller sind. Wenn Sie das beachten, dann 
sind wir sicher, daß Sie das Optimale aus diesen Sor¬ 
tierroutinen herausholen können. 

Alle hier besprochenen Programme sind als Listing 
abgedruckt, als Daten haben wir zwanzig Begriffe aus 
dem Umfeld des Computers gewählt. Den Sortierab¬ 
lauf jeder Routine können Sie am Bildschirm in gro¬ 
ben Zügen verfolgen, das fertig sortierte Array wird 
als „Erfolgsmeldung“ rechts am Bildschirm ausgege¬ 
ben. Wollen Sie die eine oder andere Routine in eige¬ 
nen Programmen verwenden, so lassen Sie bitte die 
Zeilen weg, die Sie nicht benötigen (Bildschirmaus¬ 
gabe, DATA-Werte und dergleichen). Am besten bau¬ 
en Sie so ein Sortprogramm als Unterroutine ein, 
die mit GOSUB angesprungen werden kann. 
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Da es sich um reine BASIC-Routinen ohne PEEKS 
und POKES handelt, sind sie für jeden Commodore- 
Homecomputer geeignet, vom VC20 und C16 bis hin 
zum 128PC. B.U.m 


X n s e ir* t — S o 


10 rem sortierroutine <ab> 

20 rem insert. sort <pK> 

30 fori-11o26:cr$=cr$+chr$(29) 

:n e xt <dn> 

40 ci$-ieft$( cr$, 12) :rn$»chr$( 

1H) <jn> 

50 m*20:diiits$(m) <eo> 

G0 sonclr rprint rn$"unsor fc iert : 

" <nk> 

70 for.i=1 tom: reads$( i) :prints$ 

( i) :next:gosub 200 <mi> 

00 -Fori*2tom <kl> 

90 ifs$( i) >=-s$( 1--1) t hen 1 60 : rem 
alles so lassen <kb> 

1W0 i $ = s $( i ) :p rin t ei$; L;i$:go s 
ub2 1 0 <mg> 

110 forj = i-1to1step-1 <db> 

120 s$( j + 1) - s $ (. j) rprint. ci$;j;s 
$(j+1):gosub210 <co> 

130 iFi$<~s$(j-1)then150:rem e 
infuegen <pe> 

140 s$( ,)) =1 $ : prin t c i$ ; j ; s$( j ) : 
gosub210:got;o160 < a o > 

150 nextj <kj> 

160 nexti <na> 

170 printchr$(19)cr$rn$"sortie 
rt : " • < 1a> 

100 fori 3 i= 11om-9step 1 0 <fd> 

190 f’orj-1to1+9:pri ri tcr$s${ j ) : 
nextj,i:end < c h > 

200 printchr$(19)ci$rn$"sortin 
g:":return <ii> 

210 fort=1to500:next rreturn <ik> 
220 datapascal,disketfce,floppy 
,Sprites,drueker,c hip,rarn,rom, 
videochip,basic <fb> 

230 da taassembler,maske,amiga, 
datei,text,grafik,pixel,softwa 
re,tastatur,monitor <ob> 



10 

rem 

sor tierruutine 

<ab> 

20 

rein 

selection—sort 

<fg> 

30 

fori 

= 1 to26:cr$-cr$+ctir$( 29) 


: nex t 


<dn > 


40 ci$-left$tcr$,12) :rn$ = chr$( 

10) <jn> 

50 m= 20 : d ims$( in) <eo> 

60 sonclr.printrn$”unsortiert: 

” < a k > 

70 fori=1tcm:reads$(i):prints$ 
(i):next:gosub160 < n a > 

00 -fori—mto2step~ 1 : m$—" " <no> 

90 forj^ltoi <cn> 

100 ifs$(j) > m$fchenm$-s$(j) :k~j <eg> 
1 IM nextj <ag> 

120 s1$-s$( i) : s$( i.) =s$( k) : S$( k 
) ~s 1 $ : printe.L$ ; k ; s$( k) <ou> 

130 nexti <fi> 

140 prir»tchr$( 1 9) cr$rn$" sortie 
rt:" <jl> 

150 für j- 1 tom : prin ter$s$t j) : ne 
xtj:end <ml> 

160 p r in 1:oI»r$(. 19) oi$rn$" surtin 
g:”rreturn <ap> 

170 fort--1 tu50H : nex t : re turn < ab > 

100 dätapascdl,d Lske 11 e, f Loppy 
, spri tes , drueker , ehip , ram , rüin, 
videochip,basic <ie> 

190 dataassemb 1er,maske,amiga, 
datei,text,graf 1k,pixel,softwa 
re, tastaturpnonitor < o k > 


Bubble -yo o r t 
_ & GrlteLn cXji'uiy 


10 rem sortierroutine <ob> 

20 rem bubble sort <be> 


30 fori-11o26:ur$ a cr$ + chr$(29) 
: nex fc 

40 c:i $~] e f t $( cr$ , 1 2) :rn$«chr$( 
10) 

50 fn~20 : d i ms$( m) 

G0 scnclrrprintr n $"unsortiert: 


< d n > 


< j n > 

< ö O > 

< a k > 


70 fori=1tom:reads$(i) :p rin t s $ 

( i)rnext:gosub160 <na> 

00 -fori-m-1 toi step-1 : rem beim 
vorletzten anfangen < m j > 

90 f or j= 1toi : rem gegenprube vo 
n vorne <jc> 

100 if s$( j) <*s$( j + 1) then120 <bl> 
1 10 s1$«s$( jj : s$( j) “S$( jMj: s$ 

( j + 1) - s 1 $ : pr in 1 c 1 $ ; j , s$( j + 1) : g 
osubl70 <aj> 

120 nextj <co> 

130 nexti <fi> 

140 printchr${ 19) cr$i'n$ M sorl;ie 
rt:" <jl> 

150 fürj-1tom:printcr$s$t j) :ne 
xt j :and <in 1 > 
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1 60 printchr$t 1 9) ci$ r ii$”sur*i i n 
g:":return < a p > 

1 ?0 fort* 1 to500 :next : rei. Ul'fl <db> 
160 üatapascal,diskette,floppy 
, spr Lies , drucke/*, chip , ram, rum, 
videuchip,basic <ie> 

1 90 ddtdassemb I er , inaske , amiga , 
ilatei , text , graf ik , pixel , sof two 
re,f as t a L ur,monitor <ok > 


ti h e 1 1 — ö o r ! 


_— ($'? % (cü/m t(dvi 


10 rfüii sortierroutin.8 

60 rem Shell-sort 

3 0 f o r i«1 t o2 6:c r $ = c r $ + c h r $( 2 9) 

: n e x t 

40 oi $~ 1 e P t $(cr$, 12) ;rn$-chr$( 
18) 

50 m-20:dims$(m) ,s1$(mj :sw*int 
( m/2) 

60 scnclr:printrn$ H u»sortiert: 

v« 

?W f ori « 1 t orn : reads$( i ) : pr j n t s$ 
f i) next : go s u b 320 
80 fori“1fcosw 
90 forj*1tointfm/sw) 

100 s1$( J)-s$(( J»1)*sw + i) 

110 n e x t j 

120 s1®j-1:gosub220:rem Insert 
“Sort. benutzen 
130 Forj - 1tuint(m/sw) 

140 s$(( j-1) “s w + i)“s1$( j) :prin 
j - s$( ( .j-1) - sw + i) :gosub330 
158 next j 
160 nexti 
170 sw=int.( sw/2) 

160 ifswthengotoÜÖ 

190 printchr$(19)cr$rn$"sortie 

rt : " 

200 for1tom:printcr$s$( j) :ne 
x t j : e n d 

210 rem untersortierroutine 
220 for:L1=2tos1 

238 ifs1$f il)> = s1$( 1 1-1)then30 
0 

240 i1$=s1$(i1) 

250 f or j1-i1 - 11 o1s tep-1 
268 s1$( jlM) «s1$( jl) 

270 i f i 1 $ < » s 1 $ ( j 1 -1) t h e n 2 9 0 
260 s1$(j1)-i1$:goto300 
230 nextjl 
308 nextil 
310 return 

320 printchr$(19)ci$rn$"sortin 
g:":return 


< a b > 
< gg > 

<dn> 

< .jn > 

< iii p > 

< a k > 

<na> 

< 1 c > 
<me> 
<kf> 

<ag> 


< n d > 

< jd> 

< o 1 > 
<Kj> 
<no> 
<cd> 
<pe> 

<cü > 

<pn> 

<pb> 

< k i > 

<bg> 

<bg> 

< h g > 
<em> 

< nf> 
<n 1 > 
<oi> 
<df > 
<pm> 


oo: 


330 fort=1to50B:next:return <ad> 

340 da t. apa soa 1 , d l s k eite , floppy 
, sprites, druoker , eh i p , ram , rom , 
videochip, basic <co> 

358 da taassembler , inaske , arni ga , 
da t e i , text , graf’ i k , p Ixe 1 , sof t, wo 
re, tastatur, mo n itor* < f i > 


bl u ± c k —Sort 


1 / — 




18 rem sort.ierroutine 
20 rem quick-sort 

30 -fori *= 1 to26 : cr$~or$ ) clir$( 29) 
: next 

40 f.i$-1 e f I; $( cr$ , 12) :rn$-chr$( 
•6) 

50 m-20:mg-1 80 :dims$( m) ,1e(mg) 

, ri(mg) 

60 x-0:le( 1j ~ 1 :ri( 1)«m 
7 0 Sf;i)f:lr:piintrn$"uns o r t i er t : 

00 fori -1tom:reads$( i) :prints$ 
( i) :next:prinf;clir$( 19)ci$rn$"s 
ort i n g : " 

90 gotiub 120 

180 px’in tciu $( 1 9) cr$r n$** sur t i e 
r t : ” 

110 f or j- 1 turn : prin tcr$s$( j) :ne 
x t j : e n d 

120 x“x + 1:ifle(x)>-ri( x)then24 

0 

130 y ie( x) :w-ri(x) 

140 s 1$ n$( inl( ( y t w )/2) ) 

150 iFy>wthen220 
160 ifs$(y)<s1$theny y + 1 ; g 0 1 o 1 
60 

170 iFs$(w)> s1$1henw w-1 :goto 1 
70 

108 iFy>wthen220 
190 s2$- s$(y) : s $ ( y) ~s$( w) :s$(w 
) ~s2$ ; pri n l.c i$ ; w; «,$1 w) : gosub2S 
0 

288 y-y+1:w“w-1 
210 g o t o150 

228 rif x+1)~w:1g( x + 1) le(x):go 
s u b 1 2 0 

230 lei x1) — y : ri( x+ 1 j ri( x) : go 
aub120 

240 x~x-1:return 

250 f nrt • 1to530:next:r e turn 

26 0 d a i ü j< a u ca! , dis k. > 11 e , F .1 o r • y 

,sprites,drucker,Chip,ram,rom, 

videochip,ba s i c 

278 dataassembler,maske,amiga, 
dafei, text, gmf i k , pixel , sof t wa 
r’e , tdn t o t u r ? mon L fc or 


< a b > 

< b e > 

< dn > 

< J n > 

< g k > 

< jg > 

<gk> 

< jc> 
<gd> 

<mk > 

< c j a > 

<*g> 

< c i > 

<nu> 

< mm > 

< i c > 

<nc> 

< k o > 

< d d > 

< h d > 

< >»a > 

< Fe > 

<ch> 

< c k > 

< b e > 


< c e > 


< fm> 
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Das Geld liegt auf der Straße. 

Sie brauchen es nur aufzuheben. Zumindest beim 
Autorennen Road-Race. 


Ziel von Road-Race ist es. möglichst viele Kilometer 
auf der Rennstrecke zurückzulegen und dabei Geld¬ 
scheine und Diamanten einzusammeln. Hübsche Gra¬ 
fikeffekte und hohe Geschwindigkeit machen den 
Reiz dieses spannenden Spieles aus. 

Wer in einen die Straße begrenzenden Strohballen 
oder in eine Straßensperre rast, verliert seinen Wagen. 
Das braucht aber noch nicht das Aus zu bedeuten. 
Sind 2000 Punkte erreicht, gibt es ein Extra-Auto, 
ebenso nach allen weiteren 10000. 

Nach dem Start des Programms entsteht durch das 
Einlesen des Zeichensatzes und der Rennstrecke zu¬ 
nächst eine Pause von etwa sieben Sekunden. Bitte 
nicht ungeduldig werden, denn das Warten lohnt sich. 
Nachdem das Titelbild mit Musik erschienen ist, kön¬ 
nen Sie zwischen unterschiedlichen Fahrbedingungen 
wählen. 



Mit der Taste Fl bestimmen Sie, ob viel oder wenig 
auf den Straßen los sein wird. Mit wachsender Dichte 
der Geldscheine und Diamanten steigt jedoch auch 
die Anzahl der Straßensperren. Die Geschwindigkeit 
wählen Sie mit der Taste F2. 

Damit Sie auch bei noch ungeübter Fahrweise etwas 
erreichen können und nicht mit schrottreifem Wagen 
liegenbleiben, stehen Ihnen mehrere Autos zur Ver¬ 
fügung. Mit F3 wählen Sie deren Anzahl. Durch Druck 
der HELP-Taste bekommen Sie eine kurze Übersicht 
über Punktewertung und Steuerung. 

Mit der Leertaste geht das Rennen los. Der Wagen 
wird entweder mit den Tasten A und L oder mit dem 
Joystick in Port eins gesteuert. Das Rennen endet, 
wenn Sie alle Autos zu Schrott gefahren haben. 

Bei ausreichendem Punktestand dürften Sie Ihren 
Namen in die Highscore-Liste eintragen. Sogar deut¬ 
sche Umlaute sind hierbei möglich: 

Ä=[cbm]+[-] Ö=[cbm]+[-] Ü=[cbm] + [K] 

Sollten Sie in der schwierigsten Stufe 100000 Punkte 
schaffen, sind Sie ein zweiter Nicki Lauda. □ 
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ROAD-RACE AUTORENNEN — 1 — 


10 rem road-race================p 4 <cm> 

20 rem (p) commodore weit team <ho> 

40 rem (c) by axel borchmann <fp> 

50 rem <pd> 

60 rem <ah> 

70 rem basic v3.S <nl> 

80 rem plus4 (c16/116 + 64Kb) <fd> 

90 rem =========================== <jg> 

100 poke65286,0:poke52,80:poke56,8 
0:poke65298,192:poke65299,80:clr:g 
osub3310 <fl> 

110 color0,1,0:color4,1,0:printhe$ 
he$cl$chr$(8) <Ke> 

120 neu=2000:vol7 <hg> 

130 sc$="c1985 axel computing"+b4$ 
+"c1985 axel computing”+b4$+"c1985 
axel computing" <jd> 

140 dimvk$C 4),tp$(3),at$[5),tn(144 
) , hi( 8) , hi$( 8) ,a$(6) ,b$( 6) ,x$( 11) : 
gosub2260 < jj > 

150 tp$C1)="langsam”:tp$(2)=”norma 
1 ":tp$(3)="schnei1" <jb> 

160 at$(1)="eins ":at$(2)="zwei 
at$(3)="drei ":at$(4)="vier ":at$( 

5)="f=nf" <jo> 

170 vk$(1)="wenig"+b4$:vk$(2)="nor 
mal"+b3$:vk$(3)="viel"+b5$:vk$( 4) = 

"sehr viel" <eg> 

180 restore:gosub2260 <hc> 

190 fori=1to!40:readtn(i):next <cc> 

200 fori=lto8:readhi(i),hi$(i):nex 
t <gd> 

210 fori=2048to2003:reada:pokei,a: 
next:sys2048 <ff> 

220 reada:ifa=256then240 <fd> 

230 fori=0to7:readc$:poke20480+a*8 
+i,decCc$):next:goto220 <hn> 

240 pudef"0":gosub1380 <ag> 

250 color0,16,2:color4,16,2 <jb> 

260 printhe$he$cl$ <gd> 

270 restore:gosub2260 <mb> 

280 b=4032:p=0:km=0 <fi> 

290 printbk$ <lo> 

300 gosub980 <ma> 

310 x=21:t=17:poke2022,3 <jg> 

320 pokeb+x,66:poke3008+x,127 <jk> 

330 fori=0to20:printtab(t);oe$x$( 0 
) : next <pb> 

340 pokeb+x,42:poke3008+x,127 <gp> 

350 poke 239,0 <na> 

360 printhe$oe$chr$(27)"i”:t=t+(rn 
d(1)>.5)*2+1 <cj> 

370 ift=0thent=2 <no> 

380 ift=30thent=28 <dl> 

390 ifrnd(1)>vkthen420 <an> 

400 print L ab(t)x$(0) <bi> 

410 goto430 <gn> 


420 printtab( t)x$(int(rnd(1)*12)) <oj> 
430 r=peek(b+x) <kc> 

440 ifr=42orr=86then600 <kf> 

450 ifr=83then850 <ii> 

460 ifr=32then540 <ah> 

470 ifr=42orr=86then600:remkaputt <gp> 
480 ifr=83then8S0 <mk> 

490 ifr=65then860 <hk> 

500 ifr=90thenB70 <gi> 

510 ifr=88then880 <gf> 

520 ifr=81then890 <eg> 

530 ifr=87then900 <gm> 

540 geta$:1=joy(1) <ee> 

550 ifa$="a"orl=7thenx=x-1 <jc> 

560 ifa$="l"orl=3thenx=x+1 <gf> 

570 pokeb+x,66:poke3008+x,127 < jp > 

580 km=km+1:printlg$he$he$c4$left$ 

(qr$,13);:printusing"######”;km:po 
ke2022,3 <bb> 

590 forwa=1totp:next:goto360 <ik> 

600 rem <ed> 

610 poke3008+x,127:vol7 <ae> 

620 fora=0to20step2:fori=76to79 <hj> 
630 pokeb+x,i:sound3,a*50,1 <dc> 

640 poke3008+x,int(rnd(1)*127):nex 
ti,a <ja> 

650 poke3008+x,0:pokeb+x,80 <lp> 

660 za=76:fora=24to12step-1 <bl> 

670 p0=3072+a*40+(x-(25-a)):p1=307 
2+a*40+(x+(25-a)) <mp> 

680 pokep0,za:pokepl,za <ad> 

690 pokep0+960-a*40,za:pokep1+960- 
a*40,za < go > 

700 za=za+1:ifza=80thenza=76 <fg> 

710 pokep0,32:pokepl,32:pokep0+960 
-a*40,32 <ke> 

720 pokepl+960-a*40,32:volintCa/2- 
6):sound3,1000,9:next <oe> 

730 sound3,0,0:vol7:ki=1:po=1 <mp> 

740 km=km-ki:p=p+po <ol> 

750 printhe$he$c4$left$(qr$,13)wh$ 

;:printusing"#^^###";km; <ak> 

760 printleft$(qr$,11)wh$;:printus 
ing-######-;p <ba> 

770 sound1,1000,2:ifkm=0then800 <in> 
780 ifint(km/10)=km/10thenki=10:po 
=10 <pi> 

790 goto740 <fd> 

000 km=0:forl = 1to3-; sound 1,500,15:f 
ori=7to0step-.1:voli:nexti:forq=1t 
o50:nextq,l <ji> 

810 lb=lb-1:iflb=0then830 <ol> 

820 x=21:printhe$he$c4$c4$c4$chr$( 

27)"t”cl$:goto300 <jm> 

830 printhe$he$c4$bk$yo$oe$f1$" en 
de”fo$;bk$ <pb> 

840 goto1100 <mm> 

850 p=p+50:goto910 <gl> 
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860 p=p+40:goto910 <dn> 

870 p=p+30:goto910 <cl> 

880 p=p+28:goto910 <nl> 

890 p=p+1000:goto910 <oa> 

900 p=p+2000:goto910 <mp> 

910 vol7:fori=0to255step50:sound1, 
i,1:next <gd> 

920 poKeb-40+x,32 <Ko> 

930 ifp>neuthen950 <jm> 

940 gosub980:goto360 <ge> 

950 lb=lb+1:iflb>6thenlb=6 <Kj> 

960 neu=neu+10000 <hn> 

970 goto940 <ja> 

980 poke2021,4:poke2022,0 <ki> 

990 printhe$bk$"U";:xx=6:dd$=zv$:g 
osub3560:print"IU";:xx=11:gosub356 
0: print"IU"; <ba> 

1000 xx=15:gosub3560:print"I" <ka> 

1010 a$="":fori=1tolb:a$=a$+ym$:ne 
xt <ph> 

1020 printyo$lg$; :printusing"##### 

<ho> 

1030 printbk$yo$yo$"km:"c3$lg$;:pr 
intusing”###### l> ;km; <pm> 

1040 printbk$" "yo$yo$"punkte: "lg 
$;:printusing"######";p;:printbk$" 

"yo$; <bo> 

1050 printbk$ <ha> 

1060 print"J";:dd$=zv$:xx=6:gosub3 
560:print"KJ";:xx=11:gosub3560:pri 
nt"KJ"; <gi> 

1070 xx=15:gosub3560:print"K" <db> 

1080 poke2021,24:poke2022,3 <aa> 

1090 return <bk> 

1100 rem <cp> 

1110 geta$:ifa$=""then1130 <eb> 

1120 goto1110 <pf> 

1130 poke2022,3:fori=1to24:printch 
r$(27)"w":next <oh> 

1140 gosubl150:goto1220 <pa> 

1150 poke65286,0:printcl$c4$c4$lef 
t$(qr$,12)bk$"weltrangliste"c4$;c4 
$ <ef > 

1160 colorl,3,7:printfl$left$( qr$, 

5) ; :printusing"#mW#";hi( 1) ; <hb> 

1170 printb2$"-"b2$hi$(1)fo$c4 

$ <ef > 

1180 fori=2to6:printleft$(qr$,5);: 
colorl,3,9-i:printusing"######";hi 
(i); <dc> 

1190 printb2$"-"b2$hi$(i):next <fk> 

1200 fori=7to8:printleft$( qr$,5);: 
colorl,3,0:printusing"##fflW";hi(i 
); <km> 

1210 printb2$"-"hi$Ci):next:po 

ke65286,27:return <ah> 

1220 ifp<hi(8)thenprintc4$c3$oe$"l 
eider d=rfen sie sich nicht eintra 


gen":goto1310 <kc> 

1230 printc4$left$(qr$,4)oe$"bravo 
sie d=rfen sich eintragen" <dp> 

1240 fori=8to1step-1:ifp>hi(i)then 
x=i <fk> 

1250 next <ep> 

1260 fori=8toxstep-1:hi(i)=hi(i-1) 

:hi$(i)=hi$(i-1):next <ne> 

1270 print c4$"wie heissen sie:"ch 
r$(27)"t"left$(qr$,15)chr$C 27)"b" <fi> 
1280 printcl$left$(qr$,14);:inputn 
am$ <ao> 

1290 hi(x)=p:hi$Cx)=nam$ <jf> 

1300 printhe$he$:poke2022,3:gosub1 
150 <fb> 

1310 printc4$c3$"noch einmal"lg$" 

(j/n) :" <aa> 

1320 getkeya$:ifa$="n"then1350 <mi> 

1330 ifa$<>"j"then1320 <jh> 

1340 printhe$he$cl$:color0,1,0:col 
or4,1,0:forl=1to200:next:goto240 <lk> 

1350 printhe$he$cl$:poke65286,16:p 
rintcl$b4$b3$"dann eben nicht" <pe> 

1360 poke65298,196:poke65299 f 208 <ad> 

1370 fori=16to23:poke65286,i:forl= 
1to10:nextl,i:end <fg> 

1380 vol7:color0,1,0:color4,1,0 <il> 

1390 a$C 0)="UDDIUDDIUDDIUDDDI" <nd> 

1400 a$(1)="GUIHGUIHGUIHJIUIH" <oo> 

1410 a$(2)="TJKHTGHYTGHY HGHY" <na> 

1420 a$(3)="T UK"+z4$+"TY"+z6$+z4$ 
+"JK"+z6$+" YTY"+z6$ <co> 

1430 a$(4)="T JITGHYTUIY HGHY" <pn> 

1440 a$(5)="GUIHGJKHGGHHUKJKH" <ej> 

1450 a$(6)="JKJKJFFKJKJKJFFFK" <lj> 

1460 b$(0)="UDDIUDDIUDDIU"+zv$+zv$ 

+"I" <ao> 

1470 b$(1)="GUI"+yo$+"GUIHGUI"+yo$ 
+"GU"+zv$+"K" <jn> 

1480 b$(2)="TJK"+yo$+"TGHYTGJKTJI 

<cb> 

1490 b$(3)=z4$+" UK"+z4$+"JK"+z6$+ 
z4$+"T"+b2$+z4$+" "+yo$+" " <of> 

1500 b$(4)="T JITUIYTGUITUK " <hh> 

1510 b$(5)="GUI"+yo$+"GGHHGJK"+yo$ 
+"GJ"+zv$+"I" <gd> 

1520 b$(6)="JKJKJKJKJFFKJFFK":poke 
65286,27 <gl> 

1530 fori=0to5:color 1,12,i:printh 
e$left$(qd$,5)b6$"axel computing p 
r"yn$"sentiert":next <ho> 

1540 forl=0to2000:next:fori=5to0st 
ep-1:color1,12,i <ml> 

1550 printhe$left$(qd$,5)b6$”axel 
computing pr"yn$"sentiert":next:pr 
intcl$ <mb> 

1560 poke65286,0:printhe$left$(qr$ 

,15)"the great"c4$ <ee> 
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1570 fori=0to6:color1,7,i:printb3$ 
a$( i) ** "b$Ci):next <bb> 

1580 printre$c4$b$"c1985 axel comp 
uting" <pa> 

1590 poke2022,11:poke2023,1:poke20 
24,38 <cn> 

1600 colorl,9,2:printhe$rn$z8$;:fo 


ri=2to7:colorl,9,i:printb3$;:next <mk> 
1610 fori=7to2step-1:colorl,9,i:pr 
intb3$;:next:color1,9,2:printyq$; <dh> 
1620 fori=1to5:colorl,9,i:printrn$ 

" "left$(qr$,36)" ";:next <ka> 

1630 fori=7to2step-1:color1,9,i:pr 
intrn$" "left$Cqr$,36)" <ip> 

1640 next <fo> 


1650 colorl,9,2:printrf$yq$rn$;:fo 
ri=2to7:color1,9,i:printb3$;:next <me> 
1660 fori=7to2step-1:colorl,9,i:pr 
intb3$;:next:colorl,9,2:printrf$z 8 


<of> 

1670 printchr$(27)"w"he$ <jp> 

1680 poke2021,23:poke2022,13:poke2 
023,2:poke2024,37:printcl$ <ok> 

1690 printhe$chr$(27)"t"c4$;c1$lef 
t$C qd$,11)chr$(27)"b" < go > 

1700 fori=1to8:keyi,chr$(132+i):ne 
xt <pn> 

1710 co=0:lb=3:vk=2:tp=2:sc=1:poke 
1345,1 <oq> 

1720 colorl,3,6:printhe$c4$c4$c4$b 
4$b3$"'fl'"b2$"verkehr"b3$":"vk$( v 
k) <ao> 

1730 colorl,3,4:printb4$b3$"'f2'"b 
2$"tempo"b5$":"tp$(tp) <ja> 

1740 colorl,3,3:printb4$b3$"'f3'"b 
2$"autos"b5$":"at$(lb) <co> 

1750 colorl,3,2:printb6$"'help' an 
leitung" <nh> 

1760 colorl,3,0:printb5$" 'space ' s 
tart";:poke65286,27 <hp> 

1770 geta$ <la> 

1780 colorl,16,6:printhe$c3$mid$( s 
c$,sc,34); <hi> 

1790 sc=sc+1:ifsc=25thensc=1 <bo> 

1800 co=co+1:ifco=141thenco=0 <pi> 

1810 iftn(co)=0thenforl = 1toi0:next 
:goto1830 <lo> 

1820 soundl,tn(co),11 <ah> 

1830 ifa$=f1$ then1890 <jf> 

1840 ifa$=f3$ then1910 <jl> 

1850 ifa$=f5$ then1930 <eh> 

1860 ifa$=f8$ then1950 <db> 

1870 ifa$=" ” then2170 <go> 

1880 forl=1to85:next:goto1770 <ml> 

1890 vk=vk+1:ifvk=5thenvk=1 <no> 

1900 goto1720 <oj> 

191C. tp=tp+1:iftp=4thentp=1 <di> 

1920 goto1720 <ic> 


1930 lb=lb+1:iflb=6thenlb=1 <mg> 

1940 goto1720 <ag> 

1950 colorl,3, 6 :printcl$ <na> 

1960 printb4$"steuerung"b4$;:color 
1,9,2:printyo$;:colorl,3,6:printb2 
$"punktezaehlung" <bk> 

1970 colorl,9,3:printb$b4$b3$yo$ <mi> 
1980 colorl,9,4:printtab(19)yo$” " 

;:colorl,12,0:print"X "wh$" -"b3$; 

:colorl, 11,6 <ha> 

1990 print"20 punkte" <el> 

2000 colorl,14,5:printb4$"a"wh$" - 
"oe$"Q "wh$"- "; <p D > 

2010 colorl,14,5:print"l"b4$;:colo 
r1,9,5:printyo$; <aa> 


2020 colorl,12,2:print" Z"b2$wh$"- 


"b3$;:color1,11,5:print"30 punkte" <pb> 
2030 colorl,9,6:printtab(19);yo$" 

";:colorl,12,3:print"A "wh$" -"b3$ 

;:color1,11,4 <bg> 

2040 print"40 punkte” <ke> 

2050 colorl,9,5:printtab(19);yo$" 

"; :color1,12,4:print"S"b2$wh$"-"b3 
$;:color1,11,3 <cg> 

2060 print"50 punkte" <jc> 

2070 colorl,7,2:printb2$"links"b2$ 
"rechts"b2$;:color1,9,4:printyo$ <lm> 
2080 colorl,9,3:printtab( 19)yo$" " 

;:color1,12,5:print"Q"b2$wh$"- ";: 
colorl, 11,1 <ho> 

2090 print"1000 punkte” <eg> 

2100 colorl,7,0:print" oder joysti 
ck 1 ";:color1,9,2:printyo$;:color 
1 , 12,6 <ne> 

2110 print" K"b 2 $wh$"- ";:color 1,1 
1 , 0 :print "2000 punkte” <fh> 

2120 co=co+1:ifco=141thenco=0 <ko> 

2130 iftn(co)= 0 thenforl= 1 toi 0 :next 
:goto2150 <ab> 

2140 soundl,tn(co),11 <ja> 

2150 forl=1to90:nextl:geta$:ifa$=" 
"then 2120 <gg> 

2160 printcl$:goto 1720 <ap> 

2170 rem <je> 

2180 tp-150-tp*50 <ge> 

2190 if vk=4 then vk=.1 <il> 

2200 if vk=3 then vk=.25 <la> 

2210 if vk =2 then vk =.6 <mm> 

2220 if vk =1 then vfc=. 8 S <pc> 

2230 return <al> 

2240 goto 2240 <jc> 

2250 rem <de> 

2260 x$(0)="**"+b5$+"**":x$(1)="** 
"+bk$+"V"+b4$+oe$+"**":x$(2)="** " 
+bk$+"V"+b3$+oe$+"** <cg> 

2270 x$(3)="**"+b2$+bk$+"V"+b2$+oe 
$+"**" :x $( 4 )="**"+b3$+bk$+"V "+oe$ 
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2200 

x$(5)= H **"+b4$+bk$+"V"+oe$+"* 


2770 

data 136,200,247,202,240,0,230 


*" 



<oLi> 

,17,0,230,20,0,200,236,96 

<de> 

2290 

x$(6)="** "+wh$+"S"+b3$+oe$+" 


2700 

data42,00,7e,d5,ab,d5,ab,7e,0 


**":x$(7)="** "+wh$+"A”+b3$+oe$+"* 


0 


<je> 

*" 



<io> 

2790 

data00,00,66,99,19,29,49,f6,0 


2300 

x$(0)="**"+b2$+wh$+"Z"+b2$+oe 


0 


<la> 



<ni> 

2000 

data90,00,66,99,29,29,99,66,0 


2310 

x$(9)="**"+b3$+wh$+"X "+oe$+" 


0 


<hg> 

**":x$(10)="**"+b2$+wh$+"Q"+b2$+oe 


2010 

data65,00,16,69,a9,f9,29,26,0 


$+"**" 


<gn> 

0 


<nj> 

2320 

x$(11)="** "+wh$+"HT+b2$+oe$+ 


2020 

data03,00,f6,09,e9,19,99,66,0 


"**" ; 

return 


<ff> 

0 


<em> 

2330 

data 169,169,306,345 


<fl> 

2030 

data66,3c,42,db,ff,7e,ff,ff,3 


2340 

data169,169,306,345 


<ff> 

c 


<ng> 

2350 

data 169,169,306,345 


<pf> 

2040 

data76,0e,11,15,11,0e,00,00,0 


2360 

data169,169,306,345 


<hm> 

0 


<ao> 

2370 

data262,262,303,419 


<ig> 

2050 

da ta77,42,63,f7,f5,f9,e9,65,2 


2300 

data262,262,303,419 


<la> 

2 


< jb> 

2390 

data262,262,303,419 


<kc> 

2060 

data70,44,20,10,10,7c,92,10,1 

2400 

data262,262,303,419 


<jm> 

0 


<eo> 

2410 

data453,453,543,571 


<be> 

2070 

data79,04,0a,16,7a,72,64,40,3 


2420 

data453,453,543,571 


<bf > 

0 


<eh> 

2430 

data453,453,543,571 


<gc> 

2000 

da t a06,00,00,ff,ff,42,a5,a5,0 


2440 

data543,516,453,0 


<lm> 

0 


<bf > 

2450 

data704,704,643,596 


<id> 

2090 

dataB0,10,10,7e,7e,10,10,3c,7 


2460 

data704,704,643,596 


<ij> 

e 


<em> 

2470 

data704,704,643,596 


<fh> 

2900 

data91,00,00,00,10,24,fe,fe,4 


2400 

data704,704,643,596 


<ek> 

4 


<kl> 

2490 

data596,596,516,453 


<fi> 

2910 

data92,c6,00,7c,fe,c6,fe,c6,0 


2500 

data596,596,516,453 


<bf > 

0 


<ag> 

2510 

data596,S96,516,453 


<hm> 

2920 

data61 f c6,00,c6,c6,c6,fe,7c,0 


2520 

data596,596,516,453 


<go> 

0 


<de> 

2530 

data453,453,345,262 


<dj> 

2930 

datal,7c,fe,c6,fe,fe,c6,c6,00 

<bj> 

2540 

data453,453,345,262 


<ok> 

2940 

data2,fc,fe,c6,fe,c6,fe,fc,00 

<gg> 

2550 

data453,453,345,262 


<nm> 

2950 

data3,7c,fe,c6,c0,c6,fe,7c,00 

<eb> 

2560 

data345,419,453,0 


<jc> 

2960 

data4,fc,fe,c6,c6,c6,fe,fc,00 

<eg> 

2570 

data169,169,306,345 


<ga> 

2970 

data5,7e,fe,c0,f0,c0,fe,7e,00 

<jh> 

2500 

data169,169,306,345 


<gc> 

2900 

data6,7e,fe,c0,f0,c0,c0,c0,00 

<JP> 

2590 

data169,516,453,0 


<jl> 

2990 

data7,7c,fe,c0,ce,c6,fe,7c,00 

<bm> 

2600 

data262,262,303,419 


<fh> 

3000 

data0,ee,ee,ee,fe,ee,ee,ee,00 

<pp> 

2610 

data262,262,303,419 


<ef > 

3010 

data9,7e,7e,10,10,10,7e,7e,00 

<lm> 

2620 

data262,571,516,0 


<lh> 

3020 

data10,7e,7e,0c,0c,6c,7c,30,0 


2630 

data453,453,543,571 


<nj> 

0 


<fn> 

2640 

da t a453,453,543,571 


<da> 

3030 

datal1,c6,cc,d0,f0,f0,cc,c6,0 


2650 

data453,605,643,571 


<bo> 

0 


<oa> 

2660 

data453,453,345,262 


<lp> 

3040 

data12,c0,c0,c0,c0,c0,fe,7e,0 


2670 

data345,419,453,0 


<co> 

0 


<ci> 

2600 

data50000,amok axel 


<ck> 

3050 

data13,c6,ee,fe,d6,c6,c6,c6,0 


2690 

data40000,r=pel rolf 


<ok> 

0 


<dd> 

2700 

data30000,bodo blech 


<oo> 

3060 

data14,c6,e6,f6,fe,de,ce,c6,0 


2710 

data20000,watz windig 


<ep> 

0 


< jb> 

2720 

data10000,mgetrder michi 


<co> 

3070 

data15,7c,fe,c6,c6,c6,fe,7c,0 


2730 

data 5000,erpel ernest 


<gn> 

0 


<jf> 

2740 

data 3000,w=rger Walter 


<gg> 

3000 

data16,fc,fe,66,7e,7c,60,60,0 


2750 

data 1000,rainer rosig 


<im> 

0 


<hc> 

2760 

data169,200,141,17,0,169, 

00,1 


3090 

data17,7c,fe,c6,da,dc,ee,76,0 


41,20,0,234,162,4,160,0,105,0, 

200, 


0 


<me> 

153,0,00 


<lh> 

3100 

data10,fc,fe,66,7e,7c,6c,66,0 
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0 


<dg> 

3110 

data19,7e,7e,B0,7c,02,fe,fc,0 


0 


<f m> 

3120 

data20,7e,7e,18,18,18,18,18,0 


0 


<me> 

3130 

data21,c6,c6,c6,c6,c6,fe,7c,0 


0 


<ei> 

3140 

data22,c6,c6,c6,c6,6c,7c,38,0 


0 


<ih> 

3150 

data23,c6,c6,c6,d6,7e,6c,44,0 


0 


<ej> 

3160 

data24,c6,c6,7c,38,7c,c6,c6,0 


0 


<mc> 

3170 

data25,c6,c6,ec,7c,38,70,e0,0 


0 


<nm> 

3180 

data26,fc,fe,1c,38,70,fe,7e,0 


0 


<no> 

3190 

data48,7c,fe,ce,d6,e6,fe,7c,0 


0 


<pn> 

3200 

data49,1c,3c,7c,7c,1c,1c,lc,0 


0 


<ho> 

3210 

data50,7c,fe,ce,1c,38,7e,fe, 0 


0 


<oo> 

3220 

data51,7c,fe,06,7e,06,fe,7c,0 


0 


<fm> 

3230 

data52,cc,cc,cc,fe,fe,0c,0c,0 


0 


<aa> 

3240 

data53,fe,fe,c0,fc,06,fe,fc,0 


0 


<ch> 

3250 

data54,7e,fe,c0,fc,c6,fe,7c,0 


0 


<gk> 

3260 

data55,fe,fe,0e,1c,38,70,e 0,0 


0 


<ee> 

3270 

data56,7c,fe,c6,38,c6,fe,7c,0 


0 


<bi> 

3280 

data57,7c,fe,86,fe,7e,06,fc,0 


0 


<mg> 

3290 

data97,c6,00,7c,fe,c6,fe,7c,0 


0 


<nj> 

3300 

data256 

<ik> 

3310 

rem nachspann =============== 

<ng> 

3320 

rem * farbcodes/steuercodes * 

<pe> 

3330 

wh$=chr$(005):c4$=chr$C017) 

<gc> 

3340 

rn$=chr$(018):he$=chr$(019) 

<lk> 

3350 

re$=chr$(028):c3$=chr$( 029) 

<lf> 

3360 

oe$=chr$(129):fl$=chr$(130) 

<pm> 

3370 

fo$=chr$(132):f1$=chr$( 133) 

<bh> 

3380 

f3$=chr$(134):f5$=chr$( 135) 

<fh> 

3390 

fQ$=chr$C140):bk$=chr$( 144) 

<oe> 

3400 

rf$=chr$(146):cl$=chr$( 147) 

<hh> 

3410 

lg$=chr$(153):c1$=chr$(157) 

<11> 

3420 

rem *** zeichensatz/graphik * 

<ej> 

3430 

z4$=chr$(165):z6$=chr$(167) 

<mn> 

3440 

z8$=chr$(169):zv$=chr$(192) 

<mp> 

3450 ym$=chr$(219):yn$=chr$(220) 

<gm> 

3460 yo$=chr$(221):yq$=chr$(223) 

<f n> 

3470 

zz$=chr$(255) 

<ai> 

3480 

rem ********* Zeichenfolgen * 

<ck> 


3490 for q=1 to 40 <bn> 

3500 qd$=qd$+c4$:qr$=qr$+c3$ <gc> 

3510 next q <gd> 

3520 b$=chr$(32):b2$=b$+b$ <ap> 

3530 b3$=b2$+b$:b4$=b3$+b$ <bK> 

3540 b5$=b4$+b$:b6$=b5$+b$ <1K> 

3550 b$=b5$+b5$:return <ng> 

3560 forzz=1toxx:printdd$;:next:re 
turn < ao> 

3570 rem ========================= <g e > 

3580 rem 60671 bytes memory <bb> 

3590 rem 10549 bytes program <gi> 

3600 rem 00420 bytes variables <ld> 

3610 rem 00983 bytes arrays <ca> 

3620 rem 05317 bytes strings <jc> 

3630 rem 01024 bytes zeichensatz <gc> 

3640 rem 39167 bytes nicht benutzt <db> 

3650 rem 03211 bytes free (0) <db> 

3660 rem ========================= <ih> 


Die 

C16/P4 
SPECIAL 
ist für 
Sie dabei! 
Probleme? 
Jeden 
Mittwoch 
Hotline: 
von 15-19 Uhr 
Telefon: 
089/1298013 
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Wettlauf 

auf Leben und Tod 

Außer Kontrolle geratene Atomsatelliten 
gilt es durch schier undurchdringlich erscheinende 
Meteoritenschwärme zu erreichen und sie im Raum¬ 
schiff zu bergen. Ein Wettlauf mit der Zeit, denn 
der Sauerstoffvorrat ist nicht unbegrenzt. 

Wir schreiben das Jahr 2001. Auf der Weltraumüber- 
wachungs-Station der NASA herrscht größte Aufre¬ 
gung. Acht fremde Flugkörper im All entpuppen sich 
als Atomsatelliten, die defekt und unkontrolliert 
durch das All treiben. Wenn einer von ihnen auf der 
Erde aufschlüge, gäbe es die größte Katastrophe seit 
Menschengedenken. 

Ihr Auftrag ist es, die defekten Satelliten einzusam¬ 
meln und sie einzeln in die durch einen schwarzen 
Strich gekennzeichnete Ladeluke der Raumfähre zu 
verfrachten. Stoßen Sie mit einem Meteoriten zusam¬ 
men oder sammeln Sie zwei Satelliten auf einmal ein, 
verlieren Sie einen Ihrer drei Astronauten. Viel Zeit 
steht Ihnen nicht zur Verfügung, denn Ihr Sauerstoff¬ 
vorrat ist begrenzt. Schaffen Sie es, alle Satelliten ein¬ 
zusammeln, erreichen Sie den nächsten Level, in dem 
die Meteoritenschwärme noch dichter sind. 

Hinweise: 

1. Sie können die Satelliten nur einzeln in die Lade¬ 
luke zurückbringen. 

2. Der Astronaut, der bei der Anzeige Lives aufblinkt, 
ist gerade in Aktion. 

3. Steuerung erfolgt über Joystick eins. 

Variablenliste: 

HI = Highscore 

HI$ = Name des Highscore-Halters 

NA$ = Name des Spielers 

LE = Level 

MA = Leben 

SC = Punkte 

OX = Sauerstoff 

MO$ = Meteoritenband 

PU = Abfrage für SA 

XI—X4 = Variablen für Spielfeld 

Sonstige Variablen: PR, A, T, I, TH, TL, L. 
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10 rem satell it================c16 <ae> 

20 rem (p) commodore weit, team <ho> 

30 rem «*■==■=» ======== = ===========■ = = <ng> 

40 rem (cj by martin zucker <fi> 

50 rem <pd> 

60 rem <ah> 

70 rem basic «3.5 <nl> 

80 rem c16/116/plus4 <Ki> 

90 rem ==-= = == = = = -===== =========== = = <jg> 

100 pokeSS,0:poke56,S6:cir <bm> 

110 gosub2030:scnclr:vol0:hi=999:h 
i$ = "sugar-sot' t" <bg> 

120 Key 1,”1":key2, H 2":v=65280 <lh> 

130 pokev+18,peek(v+18)and251 <po> 

140 pokev+19,peek(v+19)and3or56 <je> 
150 fort=832to849:reada:poket, a: pr 
=pr+a:nextt <ao> 

160 sys832 <hg> 

170 fort=14840to15128:reada:ifa>-1 
thenpoket,a;pr=pr+a;nextt <mc> 

180 ifpr=19509then420 <mf> 

190 print"data-fehler":stop <hh> 

200 data 162,0,109,0,208,157,0,56,1 
89,0,209,157,0,57,202,200,241,96 <kn> 
210 data000,001,007,007,001,007,00 
7,001 <ee > 

220 data000,255,255,255,170,255,17 
0,2SS <og> 

230 data000,000,255,170,170,255,17 
0,255 <km> 

240 data000,000,240,252,170,255,17 
0,255 <mm> 

250 data000,000,000,000,128,224,22 
4,128 <na> 

260 data060,060,016,056,086,016,04 
0,108 <lo> 

270 data 120,120,255,127,254,254,06 

3.254 <ik> 
280 data060,126,255,126,126,060,02 

4.255 <m P> 

290 data255,255,001,001,001,001,00 
1,001 <jh> 

300 data2S5,000,255,000,255,000,25 
5,000 <nc> 

310 data246,127,113,119,113,125,11 
3,127 <mn> 

320 data000,142,255,241,119,145,25 
3,241 <mo> 

330 data 127,120,096,096,096,096,09 
6,096 <gk> 

340 data255,113,000,000,000,000,00 

0,000 < PP > 

350 data000,233,137,137,233,041,04 

1,239 <ap> 

360 data000,123,074,074,091,074,07 
4,122 <pg> 

370 data000,222,082,082,222,088,08 
4,082 <do> 


380 data000,053,034,034,05B,010,01 
0,059 <ob> 

390 data000,221,080,092,080,080,08 
0,208 <dp> 

400 data000,240,064,064,064,064,06 
4,064 <di> 

410 data-1 <hg> 

420 rem *************** < em > 

430 rem ** titelbild ** <pn> 

440 rem *************** <gl> 

450 scnclr < gp > 

460 char,8,1,ye$+"sugar-soft praes 
entiert"+fo$ <ie> 

470 color0,1:color4,14,0:color1,1 <ei> 

480 char, 3,3, ”IIII"+c4$+lef t$( ql$, 

4)+”I M +c4$+c1$+"I"+c4$+c1$+"I"+c4$ 

+c1$ <da> 

490 print"IIII"+c4$+cl $+"I"+c4$+c 1 
$ + "I"+c4$ + c1$+"r*+c4$ + left$( ql$,4) 
+ H IIII H <hg> 

500 char,9,3,"IIII"+c4$+left$( ql$, 
4)+"I"+c3$+c3$+"I"+c4$+left$(ql$,4 
)+ H I"+c3$+c3$ <ph> 

510 print H I"c4$left$(ql$,4)"I”c3$c 
3$"I”c4$left$(ql$,4)"IIII"c4$left$ 

(ql$,4); <ai> 

520 print"I"c3$c3$ H I H c4$Ieft$t ql$, 

4) "I"c3$c3$"I"c4$left$( ql$,4) "I"c3 
$c3$"I" <dk> 

530 char,14,3, M ”:print"III"c4$c1$c 
1$ M I M c4$c1$”I"c4$c1$”I"c4$c1$"I"c4 
$c1$"I M c4$c1$"I" <ia> 

540 char,18,3, M III"+c4$+c1$+c1$+c1 
$ + -I" + c4$+c1$+"III ,, +c4$+c1$+c1$+c1 
$+ M I"+c4$+c1$+“III H <mj> 

550 char,22,3, M I"+c4$+c1$+”I"+c4$+ 
c1$+"I"+c4$+c1$+"I M +c4$+c1$+"l"+c4 
$+c1$ + ,, III" <an> 

560 char,26,3, H I M ;printc4$c1$"I H c4 
$c1$"I H c4$c1$ M I H c4$c1$"I"c4$c1$“I" 
c4$c1$"111" <jp> 

570 char,30,3,"I":printc4$c1$"I"c4 
$c1$"I"c4$c1$"I"c4$c1$"I H c4$c1$"I" 
c4$c1$"I"c4$c1$"I" <nk> 

580 char,32,3,"IIIIl":printc4$c1$c 
1$c1$"I"c4$c1$"I"c4$c1$"I"c4$c1$"I 
"c4$; <og> 

590 printc1$+"I”+c4$+c1$+"I"+c4$+c 
1$ + ”I M +c4$+c1$+"I" - <hp> 

600 charl,17,10,ye$+"NOPQRS" <lc> 

610 color1,2,6:char,9,12,zv$+”ABCD 
= raumfaehre" < jp > 

620 color1,2,5:char,9,14," E"+b4$+ 

"= raumfahrer" <bf> 

630 colorl,7,5:char,9,16," G"+b4$+ 

"=■ Satellit” <ec> 

640 colorl,10,4:char,9,18,” F“+b4$ 

+"= meteorit" <go> 
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650 char1,8,20,bl$+"high by "+hi$+ 

M :"+str$(hi) <hc> 

660 char1,5,14,wh$+"JK"+c4$+c1$+c1 

$+"LM H :char1,29,14,"JK"+c4$+c1$+cl 

$+”LM" <he> 

670 fori=3to37:poKe3191-1024+i,3*1 

6+6:next:soundl,300,9 <if> 

680 fori=3to37:poke3231-1024+i, 4*1 

6+6:next:sound1,400,9 <pj> 

690 fori=3to37:poke3271-1024+i,5*1 

6+6:next:sound1,500,9 <ce> 

700 fori-3to37:poke3311-1024+i,6*1 

6+6:next:sound1,600,9 < gi > 

710 fori=3to37:poKe3351-1024+i,7*1 

6+6:next:sound1,700,9 < Pß > 

720 fori=3to37:poke3391-1024+i,6*1 

6+6:next:sound1,600,9 <iK> 

730 fori“3to37:poke3431-1024+i,5*1 

6+6:next:sound1,500,9 <if> 

740 fori-3to37:poke3471-1024+i,4*1 

6+6:next:sound1,400,9 <af> 

750 fori=3to37:poke3S11-1024+i,3*1 

6+6:next <ca> 

760 char,9,22,rn$+ye$+ M f1 = spiel" 

+b$ < Jß > 

770 char,9,24,rn$+oe$+”f2 = spiela 
nleitung "+rf$ < J i> 

780 restore840:vo!8 <en> 


790 readth,t1:tl=t1*15:ifth*-1then 

780 <od> 
800 soundl,th,tl:sound2,th-7,tl <in> 
810 geta$:ifa$="1"ora$="2”then960 <ko> 


820 fori=1to50:nexti <ml> 

830 goto790 <nh> 

840 data596,1,704,1,739,1 <dl> 

850 data770,5,596,1,704,1 <pd> 

860 data739,1,770,5,810,1 <ek> 

870 data810,1,810,1,810,2 <om> 

880 data770,2,704,2,770,2 <md> 

890 data739,5,770,1 <he> 

900 data739,1,704,3,704,1 <kg> 

910 data770,2,810,1,810,1 <ki> 

920 data810,1,779,5,810,1 <ba> 

930 data834,1,810,2,770,2 <gi> 

940 data704,2,739,2,704,4 <fj> 

950 data-1,-1,-1 <&*> 

960 ifa$="2"then1910 <om> 

970 char,1,20,b$+b$+b$+b3$+b3$ <mh> 

980 char,10,20,bl$+"dein name":inp 
utna$ <gm> 

990 le-1 ;ma-3:sc-0 <jf> 

1000 rem *************** <fn> 

1010 rem ** Spielfeld ** < ig > 

1020 rem *************** <ch> 

1030 printcl$:color1,2 <ba> 

1040 fori=0to24:char,0,i,rn$+”HHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HH"+rf$:nexti <ah> 


1050 fori‘"1to19;char,0,i,rn$+‘ , H H +r 
f$+b$+b$+b$+b4$+b4$+rf$:next <bg> 

1060 char,0,24,rn$+"HHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHH"+rf$ <1j> 

1070 color1,2,6:char,13,18,zw$+"AB 
CD” <pb> 

1080 char,2,21,gl$+"score: "+str$( 
sc) <jb> 

1090 char,27,21,"level: "+str$(le) <de> 
1100 ifma = 3thenchar, 2,23, "Uwes : E 
E"+fl$+"E”+fo$+" " <od> 

1110 ifma=2thenchar,2,23,"lives: E 
H +f l$+"E ,, +fo$ + b2$ <no> 

1120 ifma=1thenchar,2,23,"lives: 

+fl$+"E"+fo$+b3$ <db> 

1130 char,27,23,"oxygen: 500" <fl> 

1140 fori^ltole^lB <pe> 

1150 x1*=intl rnd( 1) *797)+1 <dh> 

1160 x2=x1+3113 <ph> 

1170 ifpeek(x2)<>32andpeek(x2)<>96 
thenl150 <pg> 

1180 pokex2,70:pokex2-1024,4*16+9 <bh> 

1190 nexti <pi> 

1200 forl=1to8 <oj> 

1210 x3=int(rnd( 1)*797) +1 <ld> 

1220 x4=x3+3113 <gb> 

1230 data704,685,2,739,643,2,704,7 
04,4 <nk> 

1240 data-1,-1,-1 <be> 

1250 ifpeek(x4)<>32andpeek( x4)<>96 
then1210 <hd> 

1260 ifx4>3272andx4<3311then1210 <af> 

1270 ifx4>3632andx4<3671then1210 <ea> 

1280 pokex4,71:pokex4-1024,5*16+6 <cb> 

1290 nexti <in> 

1300 rem ***************** <kn> 

1310 rem * hauptschleife * <hd> 

1320 rem ***************** <dn> 

1330 a“3767:sa”0:pu”0:me=1:ox“500 <nn> 

1340 color1,10,4 <pj> 

1350 printhe$left$(qd$,5)c3$;mid$( 
mo$,me,38) <kc> 

1360 printhe$left$(qd$,14)c3$;mid$ 

(mo$,40-me,38) <md> 

1370 ifme=38th8nme=1 <lp> 

1380 me=me+1 < jP > 

1390 charl,34,23,g1$+str$(ox)+wh$+ 
rn$+”H"+rf$:ox=ox-1:ifox=0then1680 <go> 
1400 j=joy(1):ifj<>0thenpokea,32 <kn> 

1410 ifj=1thena=a-40 <lp> 

1420 ifj=3thena=a+1 <ej> 

1430 ifj=5thena=a+40 <cb> 

1440 ifj=7thena=a-1 <kc> 

1450 ifpeek(a)<>32andpeek( a)<>69th 
en1490 <eo> 

1460 pokea-1024,5*16+1 <gg> 

1470 pokea,69:soundl,500,1:sound2, 

404,1 <fp> 
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1480 goto1340 <cm> 

1490 rem ********** <p C > 

1500 rem * punkt ?* <dp> 

1510 rem ********** <bc> 

1520 ifpeek(a)=200orpeek(a)=70then 
1680 <an> 

1530 ifpeek(a)=66orpeek(a)<>71then 
goto1590 <jm> 

1540 pokea,69 <bk> 

1550 pu=pu+1:ifpu=2then1680 <pm> 

1560 sc=sc+25:char,9,21 ,g1$ + str$( s 
c) < a c > 

1570 fori=200to600step50:sound1,i, 

1 : nexti <cc> 

1580 goto1340 <mf> 

1590 rem ************* <fl> 

1600 rem * rueckkehr * <kc> 

1610 rem ************* <nh> 

1620 ifpeek(a)<>66then1680 <gf> 

1630 ifpu-1thensc-5C+50;ifpu-lthen 
sa=sa+1 <mo> 

1640 fori=200to600step100:sound1,i 
,2:next <kb> 

1650 char,9,21,g1$+str$(sc) <kc> 

1660 ifsa=8thengoto1770 <ia> 

1670 a=a-40:pu=0:goto 1340 <lp> 

1680 rem ***************** <bo> 

1690 rem * zusammenstoss * <do> 

1700 rem ***************** <oo> 

1710 ifpeekf a)=71thensa = sa+1:pokea 
,69 <nh> 

1720 fori=1to126:sound3,i*8,1 <im> 

1730 pokea-1024,i:nexti <dl> 

1740 ma=ma-1 <nn> 

1750 ifma-0then1860 <fi> 

1760 goto1000 <do> 

1770 rem ******************* <cd> 

1780 rem * naechstes level * <gh> 

1790 rem ******************* <gd> 

1800 char,13,10,ye$+"bonus:":fori= 
oxto0step-1 <mh> 

1810 charl,18,10,str$li)+ M ":sc=sc 
+1 <pm> 

1820 char,9,21,gl$+str$(sc):sound1 
,i+500,1:next <cj> 

1830 le=le+1:char,13,10,lg$+ M level 
"+str$(le)+b2$ <np> 

1840 fori=1to125step2:forl=1to7:po 
ke3484-1024+1,i:next1:nexti <ik> 

1850 goto1000 <il> 

1860 char,13,10,ye$+"game over" <pl> 

1870 ifsc<=hithen1890 <kd> 

1880 hi=sc:hi$=na$ <ca> 

1890 fori=1to2000:next <jf> 

1900 goto420 <nm> 

1910 scnclr:printbI$b5$b4$rn$"spie 
lanleitung"rf$ <jb> 

1920 printc4$ye$b4$"sie haben den 


auftrag,defekte ” <fe> 

1930 printc4$b4$"satelliten einzus 
ammein und sie” <bb> 

1940 printc4$b4$"einzeln in die la 
delukefgekenn-" <ca> 

1950 printc4$b4$"zeichnet durch sc 
hwarzen strich)" <he> 

1960 printc4$b4$"der raumfaehre zu 
rueckzubringen." <lo> 

1970 printc4$b4$"stossen sie gegen 
einen meteorit," <kb> 

1980 printc4$b4$"oder sammeln sie 
2 Satelliten" <oh> 

1990 printc4$b4$"aufeinmal ein,ver 
lieren sie " <gb> 

2000 printc4$b4$"einen ihrer 3 ast 
ronauten." <cf> 

2010 printc4$c4$c4$b4$b4$oe$rn$b3$ 

"fl = intro"b3$rf$ <nk> 

2020 geta$:ifa$-"1"then420:else202 
0 <co> 

2030 b$-chr$(32):b2$=b$+b$ <aj> 

2040 b3$=b2$+b$:b4$~b3$+b$ <bn> 

2050 b5$=b4$+b$:b$=b5$+b5$ <di> 

2060 fori=1to26:mo$=mo$+"F"+b2$:ne 
xt <bk> 

2070 rem nachspann --------------- <jk> 

2080 rem * farbcodes/Steuercodes * <kc> 

2090 wh$=chr$(005):c4$=chr$(017) <pd> 

2100 rn$=chr$(018):he$=chr$(019) <ee> 

2110 c3$=chr$(029):bl$=chr$(031) <pl> 

2120 oe$-chr$(129):fl$=chr$( 130) <hb> 

2130 fo$”chr$(132):rf$“chr$(146) <me> 

2140 cl$=chr$(147):g1$=chr$(151) <nn> 

2150 lg$=chr$(153):c1$=chr$(157) <nj> 

2160 ye$-chr$(158) <jh> 

2170 rem *** zeichensatz/graphik * <ba> 

2180 zv$=chr$(192) <eo> 

2190 rem ********* Zeichenfolgen * <oa> 

2200 for q=1 to 40 <kg> 

2210 qd$=qd$+c4$:ql$=ql$+c1$ <cl> 

2220 next q <ci> 

2230 return <al> 

2240 rem ========================= <ml> 

2250 rem 12277 bytes memory < jl > 

2260 rem 06986 bytes program <ld> 

2270 rem 00336 bytes variables <bh> 

2280 rem 00000 bytes arrays <pk> 

2290 rem 00574 bytes strings <fe> 

2300 rem 02048 bytes zeichensatz <mf> 

2310 rem 02333 bytes free (0) <bj> 

2320 rem ======================= = = <ma> 


* 
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Jetzt gibt es 

Deutschlands erste 
Commodore-Zeitschrift 
mit Programm-Diskette 
für Ihren 64er und 128er! 



Bis zu 180 KB Programme 
ohne Abtippen! 

COMMODORE DISC 
An guten Kiosken und 
im Bahnhofs-Buchhandel 
COMMODORE DISC 




KOMMT 
REGELMÄSSIG 
ZU IHNEN 
INS HAUS 

Finden Sie Ihr C16/P4 nicht am Kiosk? Weil es schon 
ausverkauft ist? Oder „Ihr” Kiosk nicht beliefert 
wurde? Kein Problem! Für ganze 70 DM liefern wir 
Ihnen per Post sechs Hefte ins Haus (Ausland 80 DM). 
Einfach den Bestellschein ausschneiden - fotoko¬ 
pieren oder abschreiben, in einen Briefumschlag und 
ab per Post (Achtung: Porto nicht vergessen). C16/P4- 
SPECIAL kommt dann pünktlich ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 


der Abo-Bestätigung durch den 
Verlag widerrufen - Postkarte ge¬ 
nügt. Zur Wahrung der Frist genügt 
die rechtzeitige Absendung. An¬ 


sonsten läuft dieser Auftrag je¬ 
weils für sechs Ausgaben, wenn 
ihm nicht vier Wochen vor Ablauf 
widersprochen wird, weiter. 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 

KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT: KLEIN¬ 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen ä 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 


serenten kostenlos. Gewerbliche Anzeigen kosten pro 
Zeile 4,80 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes - Computer - gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu¬ 
läßt. 
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Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post - Freimachen nicht vergessen! - 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen Vor¬ 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean¬ 
zeigen werden nicht aufgenommen. Für gewerbliche Anbieter DM 4,80 pro Zeile zuzüglich gesetzlicher Mehrwertsteuer. 



COMMODORE WELT 
ANZEIGENABTLG 
POSTFACH 1161 
D-8044 UNTERSCHLEISSHEIM 


Name_ 

Vorname_ 

Straße/Hausnr. 
Plz/Ort_ 







-•§« 


16/n COUPON Ja, ich möchte von Ihrem Angebot sechs Ausgaben an untenstehende 

Gebrauch machen. Anschrift. Wenn ich nicht vier Wo- 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die 
Abo-Gebühr dem Verlag 
zugegangen ist. 


Bitte senden Sie mir bis auf Wider- chen vor Ablauf kündige, läuft diese 
ruf ab sofort jeweils die nächsten Abmachung automatisch weiter. 

Name ^_ 16/11 

Vorname _______ 

Straße/Hausnr. _ 

PIz/ 0rt L ; ^ - SV o * r>;> « y'J e _ 


COMMODORE WELT 
ABO-SERVICE 16/11 
POSTFACH 1161 
D-8044 

UNTERSCHLEISSHEIM 


Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort IWwn s. «a\ _ OevA? 

Kontonummer __ 

Bankleitzahl — ^ ^ - 

(steht auf jedem Kontoauszug) 

Unterschrift_ 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
Unterschrift_ 






PROGRAMMSERVICE 

Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 
- Kassetten zu 40,- □ Disketten zu 40,- (16er) 

Ich zahle: 

Zutreffendes bitte ankreuzen! 

per beigefügtem Scheck ( ) Schein ( ) 

Gegen ßankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname)_ _ 

Meine Kontonummer_____ 

Meine Bankleitzahl--(steht auf jedem Bankauszug)_ 

Vorname-Nachname___ 

Str./Nr-Plz/Ort__ ___ 

Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. Umtausch bei 
Nichtfunktionieren. 16/11 

Unterschrift___ _ _ 

Bitte ausschneiden und einsenden an 

COMMODORE WELT 
KASSETTENSERVICE 16/11 
POSTFACH 1161 
D-8044 UNTERSCHLEISSHEIM 




/ 


LESER WERBEN LESER 


GEWINNEN SIE EINE COM¬ 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER - 
ODER EINE DISKETTENSTA¬ 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver¬ 
losen wir unter allen, die mit¬ 
machen, jeden Monat vier weitere 
wertvolle Preise. Und alle sechs 
Monate gibt es einen Hauptpreis 
unter allen Abo-Werbern zu 
gewinnen. Also: Mitmachen. Mit¬ 
gewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 



Herrn/Frau 


Straße/Hausnr. 


Plz/Ort 


als neuen Abonnenten der COM¬ 
MODORE WELT geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit¬ 
schrift. 

Als Prämie erhalte ich nach Ein¬ 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab¬ 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats 
sowie der halbjährlichen Haupt¬ 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun¬ 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


Name_ 

Straße/Hsnr.__ 

Plz/Ort_ 

(Bitte ausschneiden und zusam¬ 
men mit der Abo-Bestellkarte 
links einsenden! ) 16/11 
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VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög¬ 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam¬ 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware - eventuelle Erweiterungen - 
benutzte Peripherie - hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Sollten Sie keinen Drucker haben, genügt der Daten¬ 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ¬ 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 

Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu¬ 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete" Programme ziemlich schnell er¬ 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto¬ 
kopieren. 


Name des Einsenders: _ 

Straße/Hausnr./Tel.: _ 

Plz/Ort: ___ 

Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt ( ) Listings ( ) Kassette ( ) Diskette 
Ich versichere, der alleinige Urheber des Programmes zu sein! 

Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy¬ 
right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 
D-8044 UNTERSCHLEISSHEIM 
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LISTINGSi 


Auto Dat 


Auto-Dat. sammelt alle Daten, die bei einem Fahrzeug 
an fallen und wertet sie aus. So wird der Verbrauch so¬ 
wie die Kosten pro Kilometer angezeigt. Das Pro¬ 
gramm ist in allen Funktionen menügesteuert. Fehler 
werden weitgehend abgefangen. 

ZUM PROGRAMM 

Beim Starten des Programms wird nach dem Titelbild 
nachgefragt, ob schon eine Datei auf der Diskette an- 


g) Sonstiges Versicherungen 400.6 

Auch hier ist eine kleine Texteingabe möglich. 

4. Ändern _ 

In diesem Punkt kann man alle Daten verändern, lö¬ 
schen oder sogar einen Datenblock einfügen. 

5. Ausgabe _ 

Hier werden alle Datenblöcke aufgelistet. Es besteht 



gelegt wurde. Danach wird nach dem Jahrgang ge¬ 
fragt. Dies ist später beim Abspeichern einer Datei 
wichtig, da die Daten nach der Jahreszahl abgespei¬ 
chert werden. Das Programm ist 35 KByte lang. Es 
können bis zu 50 Dateien gespeichert werden. Pro Da¬ 
tei sind 1 50 Einträge möglich. 

ZUM MENÜ 

Es besteht aus elf Punkten. 

1. Laden einer Datei _ 

Man kann sich jede gewünschte Datei einladen. 

2. Speichern einer Datei _ 

Die im Speicher befindliche Datei wird unter der ak¬ 
tuellen Jahreszahl abgespeichert. 

3. Daten eingeben_ 


a) Datum in Tag.Mon 01.01 

b) km/stand Tachostand 133000 

c) Liter/Ben. Benzin 56.6 

d) DM/Ben. Betrag 61.7 

e) Öl/DM Betrag 23.2 


f) Reparaturen Rechnungsbetr.601.6 

Zu diesem Punkt kann man noch einen kleinen 
Text eingeben. 


auch die Möglichkeit, sich einen bestimmten Daten¬ 
block anzusehen. 

6. und 7. Tabelle 1 und 2 _ 

Hier werden in Tabellenform alle Daten angezeigt. 

8. Gesamt-Abrechnung _ 

In dem Menüpunkt werden alle Daten zusammenge¬ 
faßt und ausgewertet. 

9. Löschen _ 

Die Funktion Löschen löscht alle Daten! 

10. Datei löschen _ 

Es werden bestimmte Dateien auf Diskette und im 
Directoryeintrag gelöscht. - 

11. Programm beenden _ 

Wenn eine Datei vorhanden ist und man das Programm 
verlassen will, wird der Directory-Eintrag gesichert. 
Anschließend wird das Programm verlassen. Man kann 
aber das Programm mit F6 ohne Datenverlust wieder 
starten. 

Leider hatte ich keinen Drucker zur Verfügung. Aber 
es sind die dafür vorgesehenen Stellen durch REM- 
Zeilen markiert. E 




AUTO — DATEI 


1 


10 rem auto datei===============p4 <on> 

20 rem Cp) commodore weit team <ho> 

40 rem (c) by Klaus dieter breuer <mh> 
50 rem grevenbroich <gf> 

60 rem basic v3.5 <od> 

70 rem plus4 (c16/116 + 64 Kb) <cd> 

80 rem floppy <ak> 

90 rem =========================== <jg> 

100 gosub5090 <ga> 

110 bb=1 <io> 

120 dim dt$(50) <hl> 

130 gosub550 <ad> 

140 trap3730 <bd> 

150 printc4$c4$c4$:printb2$"ist sc 
hon eine datei" <cf> 

160 printc4$b2$"vorhanden (j/n) 

:inputa$ <mn> 

170 ifa$="n"thengoto200 <pc> 

180 ifa$="j"thengosub4380 :goto200 <om> 
190 goto130 <il> 

200 printhe$left$(qd$,13):printb3$ 

;:input"jahreszahl";ja$ <of> 

210 ifa$="j"thenv=1: ifa$="n"thenv = 

0 <og> 

220 ifja$= M "then200 <fi> 

230 forqq=1tobb <hp> 

240 ifdt$(qq)=ja$thengoto280 <je> 

250 nextqq <mp> 

260 dt$(bb)=ja$ <ob> 

270 bb=bb+1 <am> 

280 Key6,"goto 860"+chr$(13) <hb> 

290 dim da$(150,7) <mh> 

300 dim d(150,7),zz(150),i( 150) <cc> 

310 dim z(150),pt$(12),s(150) <hl> 

320 zx=134000 <hj> 

330 goto540 <ge> 

340 pt$C1)=b3$+"datei laden"+b3$ <ja> 

350 pt$(2)=" datei speichern " <ok> 

360 pt$(3)= M auto dat.eingeben" <md> 

370 pt$(4)="auto dat.aendern " <hd> 

380 pt$(5)= "auto dat.ausgeben" <pj> 

390 pt$C6)=b2$+"auto tabelle 1 " <he> 

400 pt$(7)=b2$+"auto tabelle 2 " <jm> 

410 pt$(8)="gesamt abrechnung" <oK> 

420 pt$(9)="programm loeschen" <pa> 

430 pt$(10)=" datei loeschen"+b2$ <mc> 
440 pt$(11)="programm beenden " <ab> 

450 f$(1)=b2$+"datum"+b6$ <ml> 

460 f$(2)=b2$+"km/stand"+b3$ <if> 

470 f$(3)=b2$+"liter/ben. " <ao> 

480 f$(4)=b2$+"dm/ben."+b4$ <Kc> 

490 f$(5)=b2$+"dm/oel"+b5$ <lc> 

500 f$(6)=b2$+"reparatur"+b2$ <mm> 

510 f$(7)=b2$+"sonstiges"+b2$ <jh> 

520 f$(8)=b2$+"gefahrne Km " <fa> 

530 return < lg > 

540 goto B60 <K1> 


550 rem ========================== <pp> 

560 rem programmKopf <mm> 

570 rem ========================== <mo> 

580 print cl$ <pc> 

590 for i=1 to 40:print"=";:next <jn> 
600 printb5$"auto dat.verwaltung"b 
3$"jahr ";ja$ <bb> 

610 for i=1 to 40:print"=";:next <ip> 
620 printrprint <ob> 

630 return <ho> 

640 rem ========================== <np> 

650 rem fehlermeldung <mb> 

660 rem ========================== <nj> 

670 char,1,24,fe$ <ec> 

680 for i=1to1000:next <ho> 

690 char,1,24,b$+b$+b3$ <hn> 

700 return <al> 

710 rem ========================== <ne> 

720 rem Koepfe programinteile <li> 

730 rem ========================== <hin> 

740 gosub 550:gosub340 <hf> 

750 char, 10,5, "******************* <ff> 
760 char,10,6,"*"+pt$(f)+"*" <ic> 

770 char, 10,7,"******************* <cK> 
780 return <Km> 

790 rem ========================== <lo> 

800 rem daten im recher <mg> 

810 rem ========================== <kn> 

820 fe$=b2$+"keine daten im rechne 
r!" <mh> 

830 gosub 640 <oj> 

840 return <ce> 

850 next y <lb> 

860 gosub5340:gosub550 <op> 

870 printb5$"programmfunKtion:" <ng> 

880 printb5$"-" <hb> 

890 print <jd> 

900 printb6$"- 1 - datei"b4$"laden 
H <dh> 

910 printb6$"- 2 - datei"b4$"speic 
hern" <eh> 

920 printb6$"- 3 - auto dat.eingeb 
en" <dn> 

930 printb6$"- 4 - auto dat.aender 
n" <ch> 

940 printb6$"- 5 - auto dat.ausgeb 
en" < ig > 

950 printb6$"- 6 - auto"b5$"tabel1 
e 1" <oa> 

960 printb6$”- 7 - auto"b5$"tabel1 
e 2" <oo> 

970 printb6$"- 8 - gesamt"b3$"abre 
chnung" <ne> 

980 printb6$"- 9 - daten"b4$"loesc 
hen" <dl> 

990 printb6$"-10 - datei"b4$"loesc 
hen" <dK> 

1000 printb6$"-11 - programm beend 
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AUTO —DATE X 


en" 


<im> 

1440 

gosub 3600 :close15 

<na> 

1010 

print:print:f=0 

cgm> 

1450 

open 1,8,14,ba$+",s,w" 

<lj> 

1020 
): " 

1030 

printb5$;:input"auswahl (1-11 

<oh> 

1460 

print#1,z 

<mp> 

» ^ 

if f=0 or f>11then fe$=b2$+"u 

1470 

for y=1to z 

<ik> 

ngueltiger wert!":gosub 640:goto 8 

<ja> 

1480 

1490 

for i=1to 7 

print#1,d (y,i);",";da$( y,i) 

<pc> 

<jf> 

OB 

1040 

on f goto 1050,1330,1580,1840 

1500 

1510 

next l 
next y 

<nd> 

<al> 

,2170,2760,3030,3280,3860,3990,257 


1520 

printtfl,ja$ 

<le> 

0 


<ni> 

1530 

close 1 

<ha> 

1050 

rem ========================= 

<mh> 

1540 

gosub4270 

<bo> 

1060 

rem datei laden 

<fc> 

1550 

print:printb2$"daten sind ges 


1070 

rem ========================= 

<jo> 

ichert!" 

<fb> 

1080 

trap3730 

<ab> 

1560 

for x=1to 2000:next 

<dm> 

1090 

ifv=0thengosub4660 

<lg> 

1570 

goto 860 

<ek> 

1100 

gosub 710:print:print 

<mn> 

1580 

rem ——=—=_=====_===-=_= 

<jo> 

11 10 

printb2$"bitte diskette einle 


1590 

rem auto dat.eingeben 

<fh> 

gen" 


<f o> 

1600 

rem - = - ==-=-== 

<nb> 

1120 

print 

<gb> 

1610 

gosub 710 

<ni> 

1130 

print 

<hf > 

1620 

z=z+1 

<ge> 

1 140 

print:ba$=ja$ 

<pc> 

1630 

print:print 

<jc> 

1150 

printb2$;:input"druecken sie 


1640 

for i=1to 7 

<ak> 

danach return";x$ 

<gn> 

1650 

print f$(i) ; 

<fp> 

1160 

printc1$ : gosub4490 

<pe> 

1660 

ifi=6ori=7 thengot.o1680 : eisei 

1170 

printc4$c4$c3$c3$"welche date 


nput 

d(z,i) 

<ip> 

i soll eingelesen" 

<gn> 

1670 

goto1690 

<ck> 

1180 

tba$ 

printc4$c3$" Jahrgang ";:inpu 

<lh> 

1680 

$,22) 

inputd(z,i): printc2$left$(qr 
"text "; : inputda$(z,i) 

<bn> 

1190 

open 1,8,14,ba$+",s,r" 

<fk> 

1690 

next 

<md> 

1200 

input#1,z 

<oc> 

1700 

print" nr."z 

<lk> 

1210 

for y=1to z 

<fi> 

1710 

print" daten richtig eingegeb 


1220 

for i=1to 7 

<kh> 

en fi/nl"; 

<ef > 

1230 

input#1,d(y,i),da$(y,i) 

<ni> 

1720 

x$="" : input x$ 

<hh> 

1240 

next i 

<lp> 

1730 

if x$="j"then 1770 

<hl> 

1250 

next y 

<ph> 

1740 

if x$="n"then z=z-1:goto 1580 

<eo> 

1260 

input#1,ja$ 

<oi> 

1750 

printchr$(145)b$b$b$b4$b3$ 

<ba> 

1270 

close 1 

<fm> 

1760 

printchr$(145) ; :goto!710 

<na> 

1280 

gosub 3600 :close15 

<ij> 

1770 

print : print 

<pf> 

1290 

0 

1300 

ifz=0thengosub790 : ifz=0then86 

print:printb2$"daten sind gel 

<am> 

1780 

n m 

1790 

print" weitere eingaben (j/n) 

x$="" : input x$ 

<gh> 

<nn> 

aden ! 

!" 

<op> 

1800 

if x$="j"then 1580 

<mj> 

1310 

for x=1to 2000:next 

<if > 

1810 

if x$="n"then 860 

<nd> 

1320 

goto 860 

<jk> 

1820 

printchr$(145)b$b$b$b4$ 

<mc> 

1330 

rem ========================= 

<cb> 

1830 

printchr$(145) ; :goto1780 

<me> 

1340 

rem datei speichern 

<Pg> 

1840 

rem ========================= 

<cb> 

1350 


<ei> 

1850 

rem auto dat.aendern 

<ce> 

1360 

gosub 710 : print : print 

<mi> 

1860 

rem ------- — 

<ei> 

1370 

if z=0 then gosub 790:goto 86 


1870 

zz=1 

<bn> 

0 


<na> 

1880 

gosub 710 

<mj> 

1380 

pnntb2$"bitte diskette einle 


1890 

print 

<gl> 

gen" 

1390 

print:f=2 

<fk> 

<ha> 

1900 

0 

if z=0 then gosub 790:goto 86 

<U> 

1400 

trap3730 

<cj> 

1910 

for i=1to7 

<mg> 

1410 

print:ba$="8:"+ja$ 

<go> 

1920 

print i;f$(i);d(zz,i);da$( zz, 

1420 

print 

<lm> 

i) 

<kh> 

1430 

printb2$; : input"druecken sie 


1930 

next 

<kf > 

danach return";x$ 

<bf > 

1940 

print:print" nr."z ; b2$"pl."zz 

<ce> 
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AUTO —DATE X 


3 


1950 print :pririt " "rn$"v"rf$"orwa 
erts, M rn$"r M rf$ H ueckwaerts,"; < ji > 

1960 print" H rn$ H a M rf$"endern, "rn 
$"m H rf$"enue" <KK> 

1970 print" "rn$"e"rf$"infuegen od 
er "rn$"l"rf$"oeschen von daten" <nl> 

1980 print <ca> 

1990 get x$:if x$=”"then goto 1990 <dc> 
2000 if x$="m"then 860 <hn> 

2010 if x$="v"and zz<z then zz=zz+ 

1:goto 1880 <me> 

2020 if x$="r"and zz>1 then zz=zz- 
1:goto 1880 <il> 

2030 if x$="a"then goto 2070 <nh> 

2040 if x$="l"then goto 4790 <1K> 

2050 if x$="e"then goto 4900 <ia> 

2060 fe$=" eingabefehler!":gosuh 6 
40:goto 1990 <dc> 

2070 char,1,21,"" <jp> 

2080 input" feldnummer(1-7)";x <mi> 

2090 if x<1 or x>7 then print chr$ 

(145);:goto 2080 <gb> 

2100 print <hb> 

2110 ifx=6orx=7thengoto2140 <ab> 

2120 input " neuer inhalt: ";d(zz, x 
) <pa> 

2130 goto2160 <mg> 

2140 input " neuer inhalt;d(zz,x 
) <oc> 

2150 printc2$left$(qr$,25)"text "; 
:inputda$(zz,x) <ip> 

2160 goto 1880 < ji > 

2180 rem auto dat.ausgeben <fc> 

2190 rem ========================= <eo> 

2200 rem gosub 730:print:print <ed> 

2210 if z=0 then gosub 790:goto 86 
0 <pf> 

2220 rem input;c4$" drucKer oder b 
ildschirm(d/b)";g$ <lh> 

2230 rem if g$="d"then open 1,4 <pd> 

2240 gosub 710:print:print <ch> 

2250 print" Suchbegriffe:" <gd> 

2260 print"-" <lm> 

2270 char,3,22," gesuchtes datum e 
ingeben" <go> 

2280 char,3,23," oder return druec 
Ken.”:char,0,10,"" <gp> 

2290 print <io> 

2300 ss =0 < lj > 

2310 print f$(1); <im> 

2320 input ss <ni> 

2330 for y=1to z <ic> 

2340 s=0 <eK> 

2350 if ss=0 or ss=d(y,1)then s=s+ 

1 <kg> 

2360 if ss=0orss=d(y,1)then2370:el 
segoto2510 <lm> 


2370 rem if g$="d" then print#! <kp> 

2380 gosub 710:print:print:ss=0 <de> 

2390 for i=1to7 <en> 

2400 if g$=""then print f$(i);d(y, 
i);da$(y,i) <ij> 

2410 rem if g$="d"then print#1,f$( 
i);dCy,i;da$Cy,i) <ei> 

2420 next i <eb> 

2430 printrprint" nr."y < dj> 

2440 printrprint " (v)vorwaerts,(r 
)rueckwaerts,(m)menue" <od> 

2450 get x$:if x$=""then goto 2450 <bb> 
2460 if x$="m"then 860:rem close 4 <ib> 
2470 if x$="v"and y<z then y=y+1:g 
oto 2750 <kf> 

2480 if x$="r"and y>1 then y=y-1:g 
oto 2750 <gi> 

2490 fe$=b2$+"eingabefehler!":gosu 
b 640:goto 2450 <pl> 

2500 print:printh2$;:input"druecke 
n sie return";x$ <oi> 

2510 next y <11> 

2520 gosub 710:print:print <fm> 

2530 printb2$"*~ Suchbegriff nicht 
vorhanden <ak> 

2540 print:printb2$;:input"druecke 
n sie return";x$ <na> 

2550 rem if g$="d"then close 1 <mb> 

2560 goto 860 <gi> 

2570 rem ========================= <op> 

2580 rem programm beenden < fg > 

2590 rem ========================= <gb> 

2600 gosub 710:print:print <ol> 

2610 if z=0 then 2740 <ad> 

2620 trap3730 <dp> 

2630 printb2$"sind alle daten gesi 
chert(j/n)"; <nl> 

2640 input x$ <lj> 

2650 if x$="n"then 860 <fn> 

2660 if x$="j"then 2680 <op> 

2670 print chr$(145)goto 2630 <id> 

2680 gosub 710:gosub4300 <mp> 

2690 print:print:printb2$"das prog 
ramm kann mit'f6'wieder" <be> 

2700 printb2$"gestartet werden,ohn 
e dass daten"b5$ <bd> 

2710 printb2$"verloren gehen!" <om> 

2720 print:print <mh> 

2730 end < oj> 

2740 sys62359:goto2730 <ae> 

2750 goto2340 < jg > 

2760 rem ========================= <ai> 

2770 rem auto tabeile 1 <kn> 

2780 rem ========================= <kk> 

2790 zh=1:c=9:trap3730 <lk> 

2800 gosub710:print:print <hj> 

2810 if z=0then gosub790:goto860 <jp> 

2820 printzf$"CCCCC"zh$"CCCCCCC"zh 
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$"CCCCC"zh$"CCCCCC"zh$"CCCnr)G"zh$" 
CCCC"zd$ <ja> 

2830 printusing"Bdat##Bkm/st"+b2$+ 

"Bge.kmBbenz. B dm"+b3$+"BverbB" ; j 
a$ <lb> 

2840 printza$"CCCCC"ym$"CCCCCCC"ym 
$"CCCCC"ym$ H CCCCCC"ym$"CCCCCC”ym$" 
CCCC"zi$ <jg> 

2850 foru=zhtoz <dp> 

2860 g=d(u,2)-d(u-1,2) <mo> 

2870 printusing"B##.##B";d[ u,1) ; <pj> 

2880 printusing" ######B”; d( u, 2) ; <la> 

2890 printusing” ####B”;g; <mp> 

2900 printusing"####.#B";d( u,3); <dj> 

2910 printusing"####.#B";d(u,4); <nk> 

2920 printusing"##.#B";d(u,3)/g*10 
0 <mn> 

2930 ifu=cthengoto2950 <eo> 

2940 next <jb> 

2950 be=0:dm=0 <me> 

2960 printzc$”=====”ym$”=======”ym 

$”=====" y m$"======"ym$"======"ym$” 

===="zs$ <ü j> 

2970 printusing" gesa”+b3$+"###### 

";d(z,2) ;:printusing” #####";d(z,2 
3-dC1,2); <ok> 

2980 forr=1tou:be=be+d(r,3):dm=dm+ 
d( r, 4):nextr <ob> 

2990 printusing” ####.#";beprint 
using" ####.#";dm <nn> 

3000 print:printb2$;:input"druecke 
n sie return”;x$ <pi> 

3010 ifu<zthenzh=u+1:c=c+9:goto280 
0 <md> 

3020 goto860 <dp> 

3030 rem ========================= <nf> 

3040 rem auto tabeile 2 <bk> 

3050 rem ========================= <ej> 

3060 zh=1:c=9 :trap3730 <jo> 

3070 gosub710:print:print <oe> 

3080 if z=0then gosub790:goto860 <kd> 

3090 printzf$"CCCCCCCC"zh$"CCCCCCC 
C"zh$"CCCCCCCnCC"zh$"CnCCCCCCC"zd$ <hk> 
3100 printusing"Bdatum ##Bol/km"+b 
3$+”Breparatur BsonstigesB";ja$ <bf> 

3110 printza$"CCCCCCCC"ym$"CCCCCCC 
C”ym$"CCCCCCCCCC"ym$"GCCCOCCCC"zi$ <im> 

3120 foru=zhtoz <lh> 

3130 printusing"B##.##"+b3$+"B";d( 
u,1); <pn> 

3140 printusing"#####.##B";d(u,5); <ae> 

3150 printusingb4$+"###.##B"; d( u , 6 
); <fj> 

3160 printusingb3$+"###.##B";d(u,7 
) <hi> 

3170 ifu=cthengoto3200 <gn> 

3180 ifu=cthengoto2950 <fp> 

3190 next <ih> 


3200 be=0:dm=0:ol=0:re=0:so=0 <lh> 

3210 printzc$"========"ym$"======= 

="ym$"=========="ym$"========="zs$ <bi> 

3220 foraa=1tou:ol=ol+d(aa,5):re=r 
e+d(aa,6):so=so+d(aa,7);nextao <bh> 

3230 printusing" gesamt"+b4$+"#### 
■##";ol;:printusingb4$+"####.##";r 
e; <ne> 

3240 printusingb3$+”####.##";so <ac> 

3250 print:printb2$;:input"drucken 
sie return";x$ <hp> 

3260 ifu<zthenzh=u+1:c=c+9:goto307 
0 <bl> 

3270 goto860 <oo> 

3280 rem ========================= <jp> 

3290 rem auto dat.ausgeben <nd> 

3300 rem ========================= <gm> 

3310 lb=0:dm=0:re=0:so=0:ef=0 :tra 
p3730 <ap> 

3320 rem gosub 730:print <kp> 

3330 if z=0 then gosub 790:goto 86 

0 <fg> 

3340 rem input;c4$” drucker oder b 
ildschirmfd/b)";g$ <ek> 

3350 rem if g$="d"then open 1,4 <pb> 

3360 gosub 710:print <li> 

3370 fori=1toz <hg> 

3380 lb=lb+d(i,3):dm=dm+d(i,4):re= 
re+d(i,5):so=so+d(i,6):ef=ef+d(i,7 
) <oe> 

3390 nexti < hj> 

3400 print f$(1);d(z,1);"."ja$ <hk> 

3410 print f$(2);d(z,2) <bb> 

3420 print f$(3);lb <fg> 

3430 print f$(4};dm <hn> 

3440 print f$(5);re <ap> 

3450 print f$(6);so <gh> 

3460 print f$(7);ef <fg> 

3470 printusingb2$+"verbrauchs dur 
chschnitt ##.## 1”;lb/(d(z,2)-d[1, 

2))*100 <pp> 

3480 print:printb2$"die gesamt kos 
ten sind";dm+re+so+ef;"dm" <oo> 

3490 print:printb2$"gefahrene km"; 
d(z,2)-d{1,2) <cg> 

3500 print:printusingb2$+"der km k 
ostet ##.##dm";(dm+rf+so+ef)/(d(z, 

2)-dC1,2)) <di> 

3510 rem ifg$="d"tbenclose1,4 <hl> 

3520 print:printb2$;:input"druecke 
n sie return";x$ <oi> 

3530 goto860 <dp> 

3540 print:printb2$;:input"druecke 
n sie return";x$ <aa> 

3550 goto860 <ho> 

3560 rem ========================= <ej> 

3570 rem fehler kanal <fe> 

3580 rem ========================= <gf> 
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3590 close15:close1 <da> 

3600 open15,8,15,"i" <fh> 

3610 input#15,o,o$,m,n:ifo<20oro=5 
0then:return <cc> 

3620 gosub 550:print:print <ol> 

3630 char,10,5,******************* 

*" <gn> 

3640 char,10,6,"*"+b3$+"fehler kan 
al"+b2$+"*" <mj> 

3650 char, 10,7, 

*":print <bk> 

3660 print" "c3$c4$fl$rn$"fehler H r 
f$;fo$" :";o;o$;m;n <ml> 

3670 close15:close1 <be> 

3680 printc4$c3$c3$"ueberpruefe di 
e diskettenstation" <hl> 

3690 printc4$c3$c3$"druecken sie d 
anach return";:inputx$ <no> 

3700 closelö <cn> 

3710 iff=2orf=10orf=11thengoto860: 
elseclr <hj> 

3720 gosub5340:goto130 <jo> 

3730 rem ========================= <an> 

3740 rem fehlerhafte daten <pc> 

3750 rem ========================= <hi> 

3760 gosub550:print:print <dn> 

3770 char,10,5,******************* 

*" <da> 

3780 char,10,6,"*"+b6$+"fehler"+b5 
$+"*" <cg> 

3790 char,10,7,******************* 

*":print <bn> 

3800 printc4$c4$c3$c3$"es wurden f 
alsche oder nicht" <ap> 

3810 printc4$c3$c3$"genug daten ei 
ngeben !" <hc> 

3820 printc4$c4$c4$c3$c3$"oder die 
diskettenstaton ist" <ea> 

3830 printc4$c3$c3$"nicht in ordnu 
ng" <kf> 

3840 printc4$c4$c3$c3$"druecken si 
e danach return"inputx$ <fj> 

3850 iff=2orf=10orf=11thengoto860: 
elseclr:gosub5340:goto130 <cc> 

3860 rem ========================= <oo> 

3870 rem daten loeschen < gj > 

3880 rem ========================= <cb> 

3890 gosub 710:print:print::a$="" <jg> 
3900 print:printleft$(qd$,6)c3$c3$ 
c3$"es werden alle daten" <en> 

3910 printc3$c3$c3$"geloescht !" <fh> 
3920 printhe$left$(qd$,9)c3$c3$c3$ 

"sind sie "rn$"sicher"rf$" (j/n)"; 
:inputx$ <ib> 

3930 ifx$="n"then goto860 <fh> 

3940 ifx$="j"thengoto 3960 <ip> 

3950 ifx$<>"j"orx$<>"n"thengoto392 
0 <fo> 


3960 printc4$c3$c3$c3$fl$"bitte wa 
rten !"fo$ <ak> 

3970 forx=1to2000:next:clr:gosub53 
40 <bi> 

3980 goto130 < gb> 

3990 rem ========================= <kp> 

4000 rem dateien loeschen <hb> 

4010 rem ========================= <de> 

4020 ifv=0thengosub4660 <cd> 

4030 gosub4490 <jh> 

4040 trap3730 <hf> 

4050 print:print" welche datei sol 
1 geloescht <ok> 

4060 print" werden "; <em> 

4070 inputloe1$ <ni> 

4080 printc4$" sind sie "rn$"siche 
r"rf$" (j/n)"; <jj> 

4090 inputa$ <ae> 

4100 ifa$="n"thengoto860 <ib> 

4110 ifa$="j"thengoto4130 <lm> 

4120 ifa$<>"j"ora$o"n"thengoto426 
0 <oh> 

4130 forqq=1tobb <dk> 

4140 ifdt$(qq)=loe1$ thengoto4160 <cn> 
4150 nextqq <cl> 

4160 forlo=qqtobb <eb> 

4170 dt$(lo)=dt$(lo+l) <no> 

4180 nextlo <ba> 

4190 bb=bb-1 <io> 

4200 print:printc3$c3$"die datei w 
ird "rn$;fl$"geloescht"fo$;rf$" !" <no> 
4210 open1,8,15 <ah> 

4220 printtfl,"s:"+loe1$ <cb> 

4230 closei <mm> 

4240 gosub4270 <pf> 

4250 goto860 <hc> 

4260 printc2$left$(qr$,24)b5$left$ 

(ql$,4)c2$c2$:goto4080 <pi> 

4270 rem ========================= <ff> 

4280 rem directory saven <el> 

4290 rem ========================= <ai> 

4300 openl,8,14,"g:auto-datei,s,w" <eb> 
4310 print#1,bb <fd> 

4320 forgg=1tobb <kb> 

4330 print#1,dt$(gg) <eg> 

4340 nextgg <pp> 

4350 closel:f=2 <ck> 

4360 gosub3560:close15 <ei> 

4370 return <ne> 

4380 rem ========================= <di> 

4390 rem directory laden <ha> 

4400 rem ========================= <il> 

4410 openl,8,14,"auto-datei,s,r" <pf> 
4420 input#1,bb <od> 

4430 forgg=1tobb-1 <mp> 

4440 inputtfl,dt$(gg) <jf> 

4450 nextgg <hf> 

4460 closei < gg > 
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4470 gosub,3560:close15 <pe> 

4480 return <lb> 

4490 rem ========================= <gk> 

4500 rem directory anzeigen <mm> 

4510 rem ========================= <kh> 

4520 a$="":gg=1 :ch=1 <nm> 

4530 printcl$:gosub710 :print :pri 
nt <eo> 

4540 forqq=chto(bb-1) <lf> 

4550 printb2$"datei Jahrgang "dt$( 
qq) <io> 

4560 ifqq=bb-1thengot04640 <am> 

4570 ifgg=4thenprintc4$+" soll wei 
ter geblaettert " :elsegoto4620 <hi> 

4580 print" werden"b2$"(j/n)";:ch= 
ch+gg: gg=1 <he> 

4590 a$="":inputa$:ifa$="j"thengot 
o4530 <bm> 

4600 ifa$="n"thenreturn <ep> 

4610 if a$<>" J"ora$o"n"thengoto465 
0 <pi> 

4620 gg=gg+1 <lo> 

4630 nextqq <do> 

4640 return <pc> 

4650 printhe$left$(qd$,15)left$( qr 
$,14);:goto4590 <io> 

4660 rem ========================= < n b> 

4670 rem keine datei vorhanden <ei> 
4680 rem ========================= <lh> 

4690 gosub710 <bj> 

4700 ifv=0thengoto4730 <nd> 

4710 ifv=1thenreturn <pc> 

4720 printrprint <ih> 

4730 printhe$left$(qd$,11)fl$b2$"k 
eine datei vorhanden !"fo$ <cc> 

4740 foraw=1to2000:next <lh> 

4750 goto860 <nd> 

4760 rem ========================= <p C > 

4770 rem daten loeschen <ck> 

4780 rem ========================= <ff> 

4790 char,3,22," "+fl$+"es wird ge 
loescht "+fo$:fort=lto500:nextt <hg> 

4800 forll=zztoz-1 <ck> 

4810 fori=1to7 <ko> 

4820 d(11,i)=d(11+1,i) <lj> 

4830 da$(11,i)=da$(11+1,i) <li> 

4840 nexti <dh> 

4850 nextll <ao> 

4860 ifz=zzthenzz=zz-1 <hf> 

4870 z=z-1 <eo> 

4880 char,3,22,b$+b$+b4$ <aa> 

4890 goto1880 <ef> 

4900 rem ========================= < c b> 

4910 rem daten einfuegen <dl> 

4920 rem ========================= < e i> 

4930 ifzz=zthengoto1880 <hl> 

4940 char,3,22," "+fl$+"es wird ei 
ngefuegt"+fo$:fort=1to500:nextt <cp> 


4950 forll=z+1tozz+1step-1 <pn> 

4960 fori=1to7 <ek> 

4970 d(11,i)=d(11-1,i) < gg > 

4980 da$(11,i)=da$(11-1,i) <me> 

4990 nexti <je> 

5000 nextll <ml> 

5010 z=z+1 <nj> 

5020 fori=1to7 <hj> 

5030 d(11,i)=0 <in> 

5040 da$(11,i)="" <fj> 

5050 nexti <id> 

5060 char,3,22,b$+b$+b2$ <jg> 

5070 goto1880 <mp> 

5080 end <fh> 

5090 rem ========================= <ej> 

5100 rem titelbild <cl> 

5120 gosub5320:printhe$he$cl$ <hh> 

5130 printc4$b2$ <md> 

5140 printb4$rn$z8$b2$yq$rf$" "rn$ 

" "rf$b2$rn$" "rf$" "rn$b5$rf$" "r 
n$z8$b3$yq$rf$" " <he> 

5150 printb4$rn$" "rf$b2$rn$" "rf$ 

" "rn$" "rf$b2$; <kn> 

5160 printrn$" "rf$b3$rn$" "rf$b3$ 
rn$" "rf$b3$rn$" "rf$" " <eb> 

5170 printb4$rn$" "rf$b2$rn$" "rf$ 

" "rn$" "rf$b2$; <ig> 

5180 printrn$" "rf$b3$rn$" "rf$b3$ 
rn$" "rf$b3$rn$" "rf$" " <bh> 

5190 printb4$rn$b4$rf$" "rn$" "rf$ 
b2$rn$" "rf$b3$rn$" "rf$b3$rn$" "r 
f$b3$rn$" "rf$" " <ii> 

5200 printb4$rn$" "rf$b2$rn$" "rf$ 

" "rn$" "rf$b2$; <og> 

5210 printrn$" "rf$b3$rn$" "rf$b3$ 
rn$" "rf$b3$rn$" "rf$" " <cj> 

5220 printb4$rn$" "rf$b2$rn$" "rf$ 

" "rn$b4$rf$b3$rn$" "rf$b3$yq$rn$b 
3$rf$z8$ <gf> 

5230 printc4$c4$b$b$b4$rn$b3$yq$rf 
$" "rn$z8$b2$yq$rf$" "rn$b5$rf$ <ea> 
5240 printb$b$b4$rn$" "rf$b2$rn$" 

"rf$" "rn$" "rf$b2$rn$" "rf$b3$rn$ 

" "rf$ <bd> 

5250 printb$b$b4$rn$" "rf$b2$rn$" 

"rf$" "rn$" "rf$b2$rn$" "rf$b3$rn$ 

" "rf$ <bi> 

5260 printb$b$rn$b3$rf$" "rn$" "rf 
$b2$rn$" "rf$" "rn$b4$rf$b3$rn$" " 
rf$ <he> 

5270 printb$b$b4$rn$" "rf$b2$rn$" 

"rf$" "rn$" "rf$b2$rn$" "rf$b3$rn$ 

" "rf$ <oo> 

5280 printb$b$b4$rn$b3$rf$z8$" "rn 
$" "rf$b2$rn$" "rf$b3$rn$" "rf$ <bl> 

5290 printleft$(qd$,4)b4$"(c) 1987 
von klaus dieter breuer" <nh> 
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5300 printc4$b$b2$fl$"taste drueck 


10 rem disk retter---= -c16 

<n j> 

en"fo$:getkeyq$ 

<io> 

20 rem (p) commodore weit tearn 

<ho> 

5310 return 

<dd> 

30 rem --—=—= - 

<ng> 

5320 rem nachspann - 

<km> 

40 rem (c) by werner fuchs 

<ec> 

5330 rem * farbcodes/steuercodes * 

<ag> 

50 rem 

<pd> 

5340 c4$=chr$(017):rn$=chr$( 018) 

<aa> 

60 rem 

<ah> 

5350 he$=chr$(019):c3$=chr$(029) 

<bl> 

70 rem basic v3.5 

<nl> 

5360 fl$=chr$(130):fo$=chr$( 132) 

<id> 

80 rem c16/116/plus4 

<ki> 

5370 c2$=chr$(145):rf$=chr$(146) 

<fl> 

90 rem--- 

< jg > 

5380 cl$=chr$(147):c1$=chr$( 157) 

<ec> 

100 gosub 800 

<bl> 

5390 rem *** zeichensatz/graphik * 

<hg> 

110 printchr$(14) 

<lc> 

5400 z0$=chr$(169):za$=chr$(171) 

<gd> 

120 gosub660:reX=0 

<ah> 

5410 zc$=chr$(173):zd$=chr$( 174) 

<ko> 

130 printcl$bk$" Beginn der Suche 


5420 zf$=chr$(176):zh$=chr$( 178) 

<jk> 

Spur "di%",1"c4$ 

<bb> 

5430 zi$=chr$(179):zs$=chr$( 189) 

<od> 

140 sp%=1:trX=di%:open15,8,15,"i0 

<al> 

5440 ym$=chr$(219):yq$=chr$(223) 

A 

i 

V 

150 openB,8,2,"#2":fi%=0 

<ne> 

5450 rem ********* Zeichenfolgen * 

<nc> 

160 print#15,"ul:"2;0;tr%;sp%:gosu 


5460 qd$="":ql$="":qr$="":for q=1 


b600 

<od> 

to 40 

<db> 

170 fori-0to1:get#0,a$:gosub570:pX 


5470 qd$=qd$+c4$:qr$=qr$+c3$ 

<cg> 

( i)-anc(a$):next : a=2 : gosub590 

<kg> 

5480 ql$=ql$+c1$ 

<kd> 

180 get#H,a$ : gosub570 : a=asc( a$) and 


5490 nextq : b$=chr$(32):b2$=b$+b$ 

<am> 

7 

<oi> 

5500 b3$=b2$+b$ : b4$=b3$+b$ 

<md> 

190 h$="" : fori=0to1 : get#8,a$:gosub 


5510 b5$=b4$+b$:b6$=b5$+b$ 

<Pj> 

570:1X(i)~asc(a$)rnext 

<ig> 

5520 b$=b5$+b5$:return 

<lc> 

200 fori--3t o 18 : get#8, a$ : h$«h $ +a $: n 


5530 rem ========================= 

<kh> 

ext 

<ne> 

5540 rem 60671 bytes memory 

<hl> 

210 ifh$-""then230 

<cb> 

5550 rem 14305 bytes program 

<oo> 

220 print ki$(a);" " ;co$;h$;tab(11 


5560 rem 00392 bytes variables 

<ki> 

) co$ ; ; 1%( 0) ; 1X( 1) : if a--0thengoto400 

<jk> 

5570 rem 12976 bytes arrays 

<aj> 

230 f iX=f iX+1 : iffiX<Bthena=fiX*32+ 


5580 rem 01383 bytes strings 

<cc> 

2 : gosub590 : goto 180 

<eo> 

5590 rem 31615 bytes free (0) 

<af> 

240 if pX( 0) •=0then260 

<eg> 

5600 rem (bei 4 datensaetzen) 

5610 rem =—==-===_==-*==«- 

<oo> 

<ge> 

250 printc4$"Wechsel auf Spur";:tr 
X=pX( 0) : spX'-pX( 1 ) : f iX 0 : printtrX; s 
pXc4$ : goto 160 

A 

trc 






260 closeB:printrn$c4$"Directory E 
nde"rf$,:ifreXthenprint"Collect Dr 


ive 1 " : print#15, "v0 <kg> 

270 gosub600:close15:end <ef> 

280 rem*" retrieve a file ** <op> 

290 print#15,"ul:"2;0;1X(0);1X(1): 
return <gd> 


GELÖSCHTE PROGRAMME WIEDER HERHOLEN 

Ein Versehen ist schnell passiert. Es ist ärgerlich, 
wenn ein dringend benötigtes Programm durch eine 
Unaufmerksamkeit beim Löschen auf Nimmerwieder¬ 
sehen verschwindet. Raufen Sie sich nicht die Haare, 
laden Sie einfach den Disk-Rettter und holen Sie 
das Programm wieder zurück. 


300 dX-2: printc4$"Gpur, Sektor"; <ge> 

310 gosub290 :fori ; =0to1 :get#8,a$:go 
sub570:zX(i)=asc(a$) <eb> 

320 printzX(i)c1$" next:print:p 
rintc2$"Spur, Sektor"; <£3'* 

330 ifz%( 0)-0thenprint:return <pe> 


340 print#15,"b-f"0;z%(0) ;zX(1):1X 
(0)-zX(0) :]%( 1)=zX( 1) : zX( dX) =zX( 0) <gi> 


Mit unserem Programm wird das Restaurieren gelösch¬ 
ter Files zum Kinderspiel, doch in einigen Fällen 
kann auch der Disk-Retter nicht mehr helfen. Wenn 
ein Programm durch Überschreiben nicht mehr exi¬ 
stiert, dann ist es hoffnungslos verloren. Wurde es 
allerdings nur mit dem SCRATCH-Befehl gelöscht 
und haben weitere Speicherungen im Anschluß dar¬ 
an nicht mehr stattgefunden, so dürfen Sie noch 
hoffen. 


350 zX(d%+1)-zX(1):dX~d%+2 <nd> 

360 ifds=0then310 <ob> 

370 print:printrn$"Das File wurde 
bere.i ts ueberschrieben"rf$" ! " : xX=n 
ot( xX):a=fi%*32+2 <1j> 

380 fori=2todX-4step2:print#15,"b- 
f:"0;zX(i);zX(i+1):next <ka> 


390 1X(0)~trX:1X(1)=spX:gosub290:g 


90 











DISK — RETTER 


2 


oto590 <ch> 

'00 print"Zurusckholen? (J/N)**left 
$(q2$,4) <on> 

410 get:a$:i fa$= : ""then41B <ae> 

420 ifa$<>" j"fcher»230 <im> 

430 x%~0: printc4$"01 ocks wiederbe] 
egen . - . " : z%( 0) -=1%( 0) : gosub300 : if xX 
then230 <cm> 

440 printc4$"Ist dies ein "rn$"P"r 
f$"rogramm, "rn$"S"rf$"equenielles, 
"rn$"U"rf$"ser,"; <be> 

4S0 print"oder "rn$"R"rf$"ßlatiwes 
File"; <ei> 

460 get; ja$:ifja$o"p"andja$<>"s H a 
ndja$<>"u"andjd$<>"r"then460 <nl> 

470 print:print <co> 

400 print: ifja$= M p"thenprintrn$+"P 
rogramm"+rf:ki%-130:goto520 <ec> 

490 ifja$~"u"thenprintrn$+"User"+r 
f;Ki%=131:goto520 <dh> 

500 ifja$="r"thenprintrn$+"Relativ 
es”+rf:Ki%-132:goto520 <bc> 

510 printrn$"Sequentiel les"rf $"-" : 

Ki%-129 <dm> 

520 print"File wiederholen...” <ad> 

530 1%(0)~tr%:1%[1)=sp%:gosub290 <pe> 

540 a=fi%#32+2:gosubS90:print#8,ch 
r$(ki%); <ae> 

550 bl%-(C d%-2)/2) +1:printc4$bl%"B 
loecke <na> 

560 print#15,"u2:"2;0;tr%;sp%:prin 
t."Wiederhergestellt !”c4$:re%=1 :go 
to230 <mj> 

570 ifa$--""thena$=chr$( 0) <gg> 

500 return <bk> 

590 print#15,"b-p:"2;a <mf> 

600 input#1S,en%,em$,et%,es%:ifenX 
=0thenreturn <fn> 

610 printc4$c4$rn$"disk fehler"rf$ <ab> 
620 printc4$"Fehler Meldung"rf$": 

"en%" "em$","et%","es% <lb> 

630 print"bitte 'CONT' geben. <na> 

640 end <if> 

650 return <kh> 

660 dimp%( 1) ,1X( 1),zX(300),ki$(4): 
co$-chr$(34} <ad> 

670 ki$(0)-rn$+”DEL"+rf$:ki$(1)-"S 
EGT :ki$(2)="PRG":ki$(3)="USR”:ki$( 

4}="REL" <nm> 

600 pg$~bk$+cl$+rn$+" Disk Fi 

le Retter VC1551/1541 " + rf$ <pp> 

690 printpg$c4$:print"Dieses Progr 
amm ermoeglir.ht das Wieder-" <cb> 

700 print"herstellen von geloescht 
en Files. <hi> 

710 print"Es wird vorausgesetzt,da 
ss die Disk noch"; <pb> 

720 print"nicht wieder beschrieben 


wurde. <dd> 

730 printc4$"100% Erfolg ist nur n 
ach 'SCRATCH' ge-" <ij> 

740 print"waehrleistet. < ig > 

750 printc4$"Beim Suchen werden nu 
r die geloeschten Dateien abgefra 
2t" <id> 

760 printc4$c4$c4$" Taste drueck 
en !" <ec> 

770 get td$:if td$="" then 770 <cj> 
700 diX=1B:return < 2P > 

790 printleft$(qu$,4):goto760 <oe> 

800 rem nachspann =============== <pp> 

010 rem * farbcodes/steuercodes * <jh> 
820 c4$=chr$(017):rn$-chr$(018) <jf> 
830 bk$-chr$(144):c2$-chr$(145) <di> 
840 rf$=chr$[146):cl$=chr$(147) <el> 
850 c1$=chr$(157) <nh> 

860 rem *** zeichensatz/graphik * <11> 

870 s2$-chr$(160) <pn> 

000 rem ********* Zeichenfolgen * <mc> 
890 for q-1 to 40 <le> 

900 q2$=q2$+s2$:qu$=qu$+c2$ <ni> 

910 next q <jm> 

920 return <mf> 

930 rem ======================^.-rr= <jm> 

940 rem 12277 bytes memory <oe> 

950 rem 03282 bytes program <mf> 

960 rem 00217 bytes variables <ac> 

970 rem 00653 bytes arrays <ck> 

980 rem 00509 bytes strings <fj> 

990 rem 07616 bytes free (0) <mk> 

1000 rem ====-==================== < n p> 


Der Disk-Retter zeigt Ihnen den Inhalt der Diskette. 
Wenn er ein gelöschtes Programm findet, will er wis¬ 
sen, ob Sie es wiederhaben wollen. Ist Ihre Antwort 
positiv, folgt die Frage, ob es ein Programm-, ein 
sequentielles, ein User-, oder ein relatives File sein 
soll. Treffen Sie durch Eingabe des jeweiligen ersten 
Buchstabens Ihre Wahl. Der Disk-Retter beginnt jetzt 
mit seiner Arbeit und meldet nach einiger Zeit, daß 
Ihr Programm wieder existiere. Ein wenig müssen Sie 
sich allerdings noch gedulden, denn die Verwaltung 
Ihrer Diskette ist wieder auf Vordermann zu brin¬ 
gen, einige Blöcke, die schon zum Überschreiben frei¬ 
gegeben worden waren, sind wieder zu sperren. 

Nach getaner Arbeit geht es weiter mit der Auflistung 
der noch fehlenden Files. Sind keine gelöschten mehr 
zu finden, so übergibt der Rechner die Kontrolle an 
Sie. Und Sie dürfen nach Herzenslust weitermachen. 
Aber besser nicht gleich wieder die falschen Pro¬ 
gramme löschen. □ 
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■ LISTINGS 


Universelle Datei 


Dateien können auf die verschiedenste Weise 
verwaltet werden. Die „relative" Dateiablage ist weni¬ 
ger verbreitet, da sie schwieriger zu programmieren 
ist. Mit diesem Listing geht's aber problemlos. 

Dieses Programm ermöglichst relative Dateiverwal¬ 
tung aller möglichen Variationen bis 254 Byte pro 
Datensatz und verwaltet bis 20 unterschiedliche Da¬ 
teien. Es ist möglich, pro Datensatz bis zehn Datenfel¬ 
der einzurichten. Bei 40 Zeichen werden allerdings 
nur sechs Datenfelder zur Verfügung gestellt. Bei kür¬ 
zeren Datenfeldern können je nach Recordlänge bis 
zu zehn Datenfelder definiert werden. 

Nach dem Programmstart erscheint das Menü, dann 
kann mit dem Cursor der einzelne Menüpunkt ange¬ 
wählt werden. Wenn keine Datei vorliegt, antwortet 
das Programm mit entsprechenden Hinweisen. Nur 
der Menüpunkt „Datei einrichten“ läßt sich anwäh¬ 
len, um eine Datei zu erzeugen! 

Nach der Datums- und Dateinamen-Eingabe wird 
nach der Feldbezeichnung und Feldlänge gefragt. Als 
Feldbezeichnung sollten etwa bei Adressen, Name, 
Straße, Postleitzahl, Ort, Telefon, genannt werden. 

Der Strich bei Feldbezeichnung markiert lediglich 
die mögliche Eingabe länge. Die Feldlänge kann 25 
Zeichen nicht überschreiten. Bei erreichter Record¬ 
länge, Escape oder dem Erreichen des zehnten Daten¬ 
feldes wird die Funktion beendet und die Parameter 
werden automatisch festgestellt. 

Danach erscheint die Eingabe für die Datensätze. Der 
Strich markiert nur die Datenfeldlänge. Es ist wichtig, 
daß im ersten Datenfeld die Bezeichnung steht, die 
für die Identifizierung maßgebend ist, also bei Adres¬ 
sen der Personenname oder bei Bibliotheken der 
Buchtitel. Sie darf sich auf keinen Fall in einem ande¬ 
ren Datensatz wiederholen, da dieser Datensatz sonst 
nicht angenommen wird. Nummern sind nicht zu emp¬ 
fehlen, da hier keine Kontrolle für doppelte Eingaben, 
die automatisch ausgeführt wird, möglich ist. 


Ebenso sind Bezeichnungen, die in mehreren Datensät¬ 
zen gleich sein müssen, also bei Adressen der Ort oder 
bei Bibliothek der Autor, im ersten Datenfeld zu ver¬ 
meiden. Die Recordnummer wird vom Computer in¬ 
tern ermittelt und verwaltet und tritt nicht in Erschei¬ 
nung. Wenn die Eingabefunktion beendet werden soll, 
ist die Taste Escape zu drücken. Dies gilt für alle 
Funktionen. 

Dann erscheint das Anfangsmenü wieder. Wenn jetzt 
die Menüpunkte „Programm beenden“, „Datei lö¬ 
schen“ und „Datei Wahl“ angewählt werden, schlie¬ 
ßen die Datenkanäle automatisch und die Parameter¬ 
datei wird als „Par.Dateiname“ abgelegt. Die Datei¬ 
namen der unterschiedlichen Dateien werden unter 
der Datei „Rel.Files-Liste“ zusammengefaßt und ge¬ 
speichert. Vor dem Zugriff auf eine Datei muß „Da¬ 
tei Wahl“ gewählt werden, denn nur hier werden die 
Kanäle geöffnet. Der entsprechende Dateiname wird 
mit dem Cursor ausgesucht und mit Return werden 
die entsprechenden Parameter geladen und die Kanä¬ 
le geöffnet. 

Nun können die Menüpunkte „Datenausgabe“, „Da¬ 
teneingabe“ und „Daten ändern“ angewählt werden. 
Andernfalls erscheint eine entsprechende Meldung. 

Da das Abbrechen des Programmes durch die Stop- 
taste nicht möglich ist, muß der Menüpunkt „Pro¬ 
gramm beenden“ benutzt werden, um alle Kanäle zu 
schließen und Paramterdateien zurückzuschreiben. 

Die Funktion der Suchroutine ist folgende: Nach Ein¬ 
gabe der Anfangsbuchstaben des Suchbegriffs werden 
alle Datensätze, die mit den gleichen Zeichen begin¬ 
nen, hinter die Forderung Suchbegriff ausgegeben. 
Dann wartet das Programm drei Sekunden. Wenn in 
dieser Zeit nicht Return gedrückt wird, um den I.D.- 
Code zu übernehmen, wird an dieser Stelle der näch¬ 
ste Datensatz vorgeschlagen. 

Dieter Kukkel □ 
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'0 rem relative datei ========= c 16 <eg> 

20 tbit) (p) commodore weit team <ho> 

40 rem ( c) by dieter KuKKel c128 <lk> 
50 rem ( v) a. mittelmeyer c16 <la> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

00 rem c16/116/plus4 + floppy <dn> 

100 gosub110:sys818:goto160 <lg> 

110 restore:fori-818to830 <hj> 

120 reada:pokei,a:next:return <bk> 

130 data 120,169,102,141,038,003 <bd> 

140 data 169,204,141,039,003,088 <fj> 

150 data 096 <oo> 

160 gosub1690:scnclr <cc> 

170 dim n$( 8) , t( 8) , x( 6) , y( 8) , dn$( 2 
5),df$(20),lr(20),dx$(20),id$(500) <ig> 
180 sp$-chr$(32):pu$-chr$(163):od- 
0:lf=8:rp=1:s=1:f1=0:f=0 <ol> 

190 forj=0to38:s8$=s8$+sp$:nextj:r 
estore210 <ng> 

200 fori=1to7:readn$(i),t(i),x(i), 
y(i):nexti <kk> 

210 data " datei-auswahl ”,1,0,3," 
daten-ausgabe ",2,0,4 <gg> 

220 data " daten-eingabe ",3,0,5," 
daten-aendern ",4,0,6 <cl> 

230 data " datei einrichten ",5,20 
,3," datei loeschen ",6,20,4 <ie> 

240 data " programm beenden ",0,20 
,5 <kl> 


250 : <cp> 

260 gosub850:char1,1,0,rf$+"relati 
ve index-datei"+b$+b3$+"c16 "+ro$ <mk> 
270 charl,1,1,rf$+"(c) commodore w 


elt/diet.er kukkel"+ro$ <jh> 

280 charl,0,8,rf$+s8$+ro$:char,1,8 
,rf$+"cursor-wahl :"+ro$ <dg> 

290 fori=1to7:charl,x(i),y(i),n$( i 
):nexti <ic> 

300 char,x( s),y(s),rf$+n$(s)+ro$:c 
har,21,8,rf$+"funktion"+str$(t(s)) 

+ro$ <hn> 

310 getkey z$:char,x(s),y(s),n$(s) <ak> 
320 ifz$=chr$(145)then s=s-1:ifs<1 
thens=s+7 <nd> 

330 ifz$=chr$(17) then s=s+1:ifs>7 
t hen s=s-7 <go> 

340 ifz$=chr$(29) then s=s+4:ifs>7 
thens=s-7 <nl> 

350 ifz$=chr$(157)then s=s-4:ifs<1 
thens=s+7 <hc> 

360 ifz$<>chr$(13)then300 <dn> 

370 ifs>1ands<5then ifdn$=""then g 
osub970:goto260 <em> 

380 ifs=3ors=4then gosub1060 <fl> 

390 on t( s) gosub 420,590,720,590, 


1120,1590:ift(s)<>0then260 
400 gosub1470:scnclr:gosubl10:poke 
820,101:poke825,242:sys818:end 
410 : 

420 iffl=0thengosub1360:iffl=0then 
return 

430 s=1:x=1:y=11:fori=1tofl:ifx>30 
thenx=1:y=y+1 

440 charl,x,y,dn$(i):x=x+20:nexti: 
ifdn$o""then gosub1470 
450 gosub1040:iff=0then charl,1,24 
,rf$+"welche datei wird gewuenscht 
?"+ro$ 

460 iff=1then charl,1,24,rf$+"welc 
he datei soll geloescht werden ?"+ 
ro$ 

470 z=s-1:y=int(z/2)+11:x=((z/2)-i 
nt(z/2))/.5*20 

480 char,13,23,rf$+b3$+ro$:char,1, 
23,rf$+"datei-wahl"+str$( s)+ro$ 

490 char,x,y,rf$+sp$+dn$(s)+sp$+ro 
$ 

500 getkey z$:char,x,y,sp$+dn$(s)+ 
sp$ 

510 ifz$=chr$(145)then s=s-2:ifs<1 
thens=s+20 

520 ifz$=chr$(17) then s=s+2:ifs>2 
0thens=s-20 

530 ifz$“chr$(29) then s=s+1:ifs>2 
0thens=s-20 

540 ifz$=chr$( 157) then s^s-Lifs«! 
thens-s+20 

S50 ifz$ochr$( 13)then470 

560 ifs=<flthen dn$=dn$(s):s=1:eis 

e s=1:goto470 

570 iff=1then return:else gosub104 
0:goto1410 
580 : 

590 gosub870:char1,0,23,rf$+">>> a 

chtung <<<"+b2$+"record nr."+ro$ 

600 charl,0,24,rf$+"mit return ueb 

ernehmen"+ro$:rn=0 

610 charl,0,2,"Suchbegriffinput 

nn$ 

620 fori=1toad:charl,27,23,rf$+str 
$( i) +ro$:ifleft$(id$(i),len(nn$))< 
>nn$then640 

630 charl,14,2,id$(i):gosub1680:ge 
tt$:ift$=chr$(13)then660 
640 charl,14,2,left$(s8$,25):nexti 
:gosub1040 

650 charl,5,24,rf$+"datensatz ist 
nicht vorhanden !"+ro$:gosub1680:g 
osub1040:goto830 

660 rn=i:gosub1040:gosub900:ifrl<8 
9then680 

670 fori=1todf:forj=1tolr(i):get#l 
f,eg$:dx$(i)=dx$(i)+eg$:nextj,i:go 


<bd> 

<cd> 

<hb> 

<fb> 

<ap> 

<go> 

<ak> 

<kl> 

<hn> 

<gd> 

<mb> 

<oh> 

<kj> 

<dd> 

<cn> 

<na> 

<no> 

<mb> 

<pl> 

<mg> 

<la> 

<ok> 

<gc> 

<ee> 

<ni> 

<og> 

<gm> 

<pm> 
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to690 <in> 

600 input#lf, rc$:lr”1:fori“ltodf:d 
x$(i)=mid$(rc$,lr,lr[i)):lr=lr+lr( 
i):nexti <mk> 

690 fori-1todf:chor1,0,i*2+2,df$(i 
):char1,14,i*2+2,dx$(i):nexti <nd> 

700 gosub950:ifs=4then fori=1todf: 
goto730:else030 <co> 

710 : <ml> 

720 gosub870:ad=ad+1:rn=ad:fori=lt 
odf <gl> 

730 charl,0,i*2+2,df$(i):forj=1tol 
r(i):char1,13+j,i*2+3,pu$:nextj <1j> 

740 chnrl,12,i*2+2,"":inputdx$(i): 
iflen(dx$(i))>lr(i)ordx$(i)=""then 
730 <be> 

750 ifi>1then790:else ifs=4then id 
$(rn)="" <kh> 

760 f-0:forj-1toad:ifid$(J)<>dx$(1 
)then780 <im> 

770 charl,1,23,rf$+"i.d.-code exis 
tiert"+ro$:f=1:gosub1600 <ad> 

780 nextj:gosub1040:iff=0then id$( 
rn)=dx$(1):else730 <kp> 

790 lr$="":forj=1tolr(i):lr$=lr$+s 
p$:next j <oi> 

800 dx$(i)=left$(dx$(i)+left$(lr$, 
abs(lr(i)-len(dx$(i)))),lr(i)) <bk> 

810 rc$=rc$+dx$(i):nexti:gosub900: 
print#lf,rc$:gosub900:gosub950 <io> 

820 gosub1040:char1,1,24,rf$+"date 
nsatz ist gesichert"+ro$:gosub1680 <im> 
830 gosub1020:ift$=chr$t 27)thenret 
urn:eise ifs=3then720:else590 <ji> 

840 : <na> 

850 scnclr:charl,0,0,rf$+s8$+ro$:c 
harl,0,1,rf$+s8$+ro$:goto!040 <no> 

860 : <pi> 

870 gosub850:charl,0,0,rf$+n$( s)+s 
p$+dn$+ro$ <jn> 

880 charl,1,1,rf$+"aktualisiert am 
: "+j$+ro$:return <ai> 

890 : <de> 

900 ah=int(rn/256):al=rn-256*ah:pr 
int#1S,"p"+chr$(96+lf)+chr$( al)+ch 
r$(ah)+chr$(rp) <kc> 

910 charl,1,23,rf$+ds$+ro$:ifds<20 
ords=50ords=62then return <jd> 

920 ifds=52then gosub1470:eise gos 
ub1520 <fd> 

930 run <nf> 

940 : ' <jj> 

950 fori=1todf:dx$(i)="":nexti:rc$ 
="":return <af> 

960 : <mb> 

970 charl,1,23,rf$+"datei-auswahl 
oder "+ro$ <ae> 

980 charl,1,24,rf$+"datei-einricht 


en waehlen M +ro$:gosub1680:return <ah> 
990 : <pn> 

1000 charl,0,2,rf$+left$( s0$,18) :r 
eturn <ec> 

1010 : <cf> 

1020 charl,1,23,rf$+"funktion wied 
erholen"+ro$ <fn> 

1030 charl,1,24,rf$+"ja=(space)"+b 
2$+"/"+b2$+"nein=(escape)"+ro$:get 
keyt$ <cc> 

1040 charl,0,23,rf$+s8$+ro$:char1, 
0,24,rf$+s8$+ro$:return <gm> 

1050 : < hg> 

1060 charl,0,10,rf$+" aktuelles da 
tum "+ro$:ifj$=""thenj$="01.09.198 
7" <od> 

1070 charl,20,10,j$:charl,18,10,"" 

:inputp$:char1,0,10,s8$ <fe> 

1080 iflen( p$)<>10orwal(left$(p$,2 
))>31then1060 <ch> 

1090 ifval(mid$(p$,4,2))>12orwal( r 
ight$[p$,4))<1980then1060 <mm> 

1100 j$-p$:return 

1110 : <oo> 

1120 ifdn$=""then gosub1360:else g 
osub1470 <fj> 

1130 iffl=20thenchar1,1,23,rf$+"ma 
x. dateien-anzahl ist erreicht"+ro 
$:gosub1680:return <ia> 

1140 ifad>0thenfori=1toad:id$[i)=” 
":nexti:ad=0 < lj > 

1150 gosub850:charl,1,0,rf$+"rBlat 
ive index-datei einrichten"+ro$:go 
sub1060 <lj> 

1160 dn$="":charl,0,10,rf$+" datei 
-name "+ro$:fori=16to27 <dg> 

1170 charl,i,11,pu$:nexti:charl,14 
,10,"";inputdn$:char1,0,10,s8$ <cg> 

1180 charl,0,11,s8$:iflen[dn$)>12o 
rdn$=""then1160 <hh> 

1190 fori=1tofl+1:ifdn$(i)=dn$then 
charl,1,23,rf$+"datei-name existie 
rt"+ro$:goto1160 <gh> 

1200 ifdn$(i)="”then dn$(i)=dn$:f1 
=i <af> 

1210 nexti:gosub1040:charl,0,2,s8$ 
:char1,1,1,rf$+"parameter-eingabe" 
+b3$+dn$+ro$ <kn> 

1220 rl=0:b=253:i=0:do:i=i+1:IrCi) 

=0:df$(i)="” <ap> 

1230 charl,0,i*2+2,rf$+" feld nr." 
+str$(i)+sp$+ro$ <me> 

1240 gosub1000:charl,0,2,rf$+" fei 
d-bezeichnung "+ro$ <hd> 

1250 forj=15to26:charl,j,i*2+3,pu$ 

:nextj:charl,13,i*2+2,:inputdf$( 
i) <ei> 

1260 iflen(df$(i))>12ordf$(i)=""th 
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anforj=13to35:charl,j,i*2+2,sp$:ne 
xtj:goto1240 

1270 gosub1000:charl,0,2,rf$+" fei 
d-laenge H +ro$:charl,27,i*2+2,sp$: 
inputlrfi) 

1280 iflr(i)<1orlr(i)>25orlr(i)>bt 
hen1270:elserl=rl+lr(i):b=b-lr(i) 
1290 gosub1000:char1,0,2,rf$+" ree 
ord-laenge "+ro$:charl,36,2,b3$ 
1300 charl,29,2,rf$+str$(rl)+sp$+r 
o$:charl,35,2,str$(b):ifi~10orb-0t 
henexit 

1310 charl,1,23,rf$+"weitere daten 
felder einrichten"+ro$ 

1320 gosub1030:ift$=chr$(27)then e 
xit 

1330 loop:df=i:rl=rl+1:gosub1020:i 
ft$=chr$(27)thengosub1440:s=3:goto 

720 

1340 dn$(fl)= M ":fl=fl-1:goto1150 
1350 : 

1360 open2,8,3,"0:rel.files-liste, 
s,r":gosub910:ifds=62thenclose2:go 
toi380 

1370 input#2,fl:fori=1tof1:input#2 
,dn$(i):nexti:close2:return 
1300 charl,1,23,rf$+"dateien nicht 
existent"+ro$ 

1390 charl,1,24,rf$+ M erst datei ei 
nrichten"+ro$:gosub 1680 :return 

1400 : 

1410 open2,8,3,"0:par."+dn$+",s,r" 

:gosub910 

1420 input#2,ad,df,rl,j$:fori=1tod 
f:input#2,df$(i),lr(i):nexti 
1430 fori=1toad:input#2,id$(i):nex 
ti:close2 

1440 open 15,8,15:openlf,8,lf,dn$+ M 

,1,"+chr$(rl):gosub910 

1450 charl,1,24,rf$+"dateiarbeit k 

ann begonnen werden."+ro$:gosub168 

0:return 

1460 : 

1470 ifdn$="”thenreturn:eise gosub 
1540 

1480 print#15,"s:par."+dn$ 

1490 open2,8,3,”0:par.**+dn$+",s,w" 
:gosub910 

1500 print#2,ad","df","rl","j$:for 
i=1todf:print#2,df$(i)",”lr(i):nex 
ti 

1510 fori=1toad:print#2,id$(i):nex 
ti 

1520 close2:cloself:close15:dn$="" 

:return 
1530 : 

1540 charl,1,24,rf$+"daten-kanaele 
werden geschlossen "+ro$ 


<fg> 


<oe> 

<dg> 

<bh> 

<kh> 

<ik> 

<hp> 

<nb> 

<hb> 

<na> 


<kj> 

<fm> 

<Pj> 

<mf > 
<de> 

cgb> 

<fl> 

<bd> 

<hm> 

<fp> 

<kn> 

<ed> 

<ad> 

<ng> 

<am> 

<ng> 

<hb> 

<dj> 

<hl> 


1550 print#15,"s:rel.files-liste M <jc> 
1560 open2,8,3, M 0:rel.files-liste, 
s,w":gosub910 <np> 

1570 print#2,fl:fori=1tof1:print#2 
,dn$(i):nexti:close2:return <eb> 

1S80 : < jo> 

1590 f=1:gosub420:gosub1040:iffl=0 
thenreturn <dd> 

1600 charl,1,23,rf$+"loesch-vorgan 
g abbrechen ?"+ro$:gosub1030 <dk> 

1610 f=0: if t$<>chr$( 27) then dn$= n,, 
:return <aj> 

1620 charl, 1,24,rf$+**datei "+dn$+" 
wird geloescht"+ro$ <ma> 

1630 fori=1tof1:ifdn$=dn$[i)thendn 
$(i)= M " <eh> 

1640 ifdn$(i)=" M thendn$(i)=dn$Ci+1 
):dn$Ci+1)=”" <pm> 

1650 nexti:fl“fl-1:open 15,8,15:pri 
nt#15, M s:par."+dn$:print#15, H s:"+d 
n$ <hi> 

1660 print#15,"s:rel.files-liste": 
close15:iffl>0then gosub1560 <np> 

1670 dn$="":return <dn> 

1680 forxx=1to2000:next:return <hd> 

1690 b$“chi'$( 32) :b2$=b$+b$ <pc> 

1700 b3$=b2$+b$:b$=b3$+b3$+b2$+b2$ <dj> 
1710 rf$=chr$(18):ro$=chr$(146):re 
turn , <eb> 

1730 rem 12277 bytes memory <ai> 

1740 rem 06340 bytes program <pn> 

1750 rem 00217 bytes variables <hf> 

1760 rem 02037 bytes arrays <an> 

1770 rem 00642 bytes strings <cp> 

1780 rem 03033 bytes free (0) <mf> 

1790 rem (bei 3 datensaetzen) <mi> 

1000 rem ===============*«=-===-== = = <dl> 
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■ TIPS & TRICKS 


Arbeitszeit¬ 

verkürzung 

für 

Mensch 

und 

Computer 

ln der letzten Ausgabe gaben wir Ihnen einige 
Tips, um Ihre BASIC-Programme schneller zu machen. 
Wie versprochen, hier die Fortsetzung. Schreiben 
Sie ein Buch oder eine Doktorarbeit? Dann haben 
wir ein sehr nützliches Hilfsprogramm für Sie. 
Zum Schluß noch ein Spiel zur Entspannung. 


Wenn ein Programm schneller ablaufen soll, so muß al¬ 
les vermieden werden, was den Computer unnötig auf¬ 
hält. Bei einigen Funktionen benutzt der Computer 
von einer Zahl ohnehin nur den Integer-Teil, also die 
ganze Zahl ohne die Stellen hinter dem Komma. Da¬ 
her ist es oft unnötig, die INT-Funktion einzusetzen. 
Ein Beispiel: 

10 a=3077.55:b=65.5:poke int(a),int(b) 

Hier kann in beiden Fällen der INT-Befehl weggelas¬ 
sen werden. Ohne ihn geht es schneller, das Ergebnis 
ist das gleiche. Die Funktionen, bei denen am häufig¬ 
sten der INT-Befehl eingesetzt wird, sind POKE, 

PEEK und CHAR. 


IM DUNKELN GEHT MANCHES SCHNELLER 


Folgenden Trick werden regelmäßige Leser unserer 
Zeitschrift sicher kennen, aber der Vollständigkeit 
halber und für die „Neuen“ sei er noch einmal er¬ 
klärt. Der CI 6/P4 verbraucht relativ viel Zeit, um den 
Bildschirm aufzubauen, er ist langsamer als der C64 
oder der CI 6. Dies hat seinen Grund in der Luminanz. 
Da der CI 6 nicht nur 16 Farben, sondern diese auch 
noch in sieben Helligkeitsstufen darstellen kann, 
braucht das Betriebssystem einige Zeit, um den ent¬ 
sprechenden Hardware-Bausteinen mitzuteilen, wie 
die einzelnen Zeichen darzustellen sind. 

Wird die Bildschirmdarstellung nicht gebraucht, da nur 
Berechnungen durchgeführt werden, kann der Bild¬ 
schirm mit 

POKE 65286,11 

abgeschaltet werden. Manche Programmteile laufen 
nun bis zu 30 Prozent schneller. Mit 

POKE 65286,27 

wird der Bilschirm wieder sichtbar. 


Diesen POKE sollten Sie sich bei der Programment¬ 
wicklung auf eine der KEY-Tasten legen, da bei einem 
Programmfehler die Fehlermeldung ja unsichtbar ist 
und Blindschreiben ist nicht jedermans Sache. 


LASSEN SIE DAS LET BLEIBEN 


Viele Programmierer der „alten Schule“, die schon 
auf dem PET oder ähnlichen Computern das Program¬ 
mieren erlernt haben, verwenden immer noch den 
LET-Befehl: 

lOlet a=1234 

Dieser Befehl wird von neueren BASIC-Dialekten 
zwar noch verstanden, aber nicht mehr benötigt. Er 
kostet nur zusätzlichen Speicherplatz und etwas Zeit 
bei der Interpretation. Schreiben Sie also besser nur 

a=1234. 


EIN IF KOMMT SELTEN ALLEIN 


Vermeiden Sie unnötige IF-Abfragen. 

Häufig finden sich mehrere hintereinander stehende 
IF-Zeilen, die durch eine einzige ersetzt werden 
können: 

10 if a=65 then 100 
20 if a=66 then 200 
30 if a=67 then 300 

Diese drei Zeilen können Sie so zusammenfassen: 

10 on a—66 goto 100,200,300 

Dieses Verfahren ist in der Regel ab drei aufeinander¬ 
folgenden Zahlen sinnvoll. Besonders wirksam ist es, 
wenn mit dem Joystick ein Spiel gesteuert wird. 
JOY(l) kann die Zahlen von eins bis acht annehmen 
(mit Feuer 128 bis 136). Soll bei jeder Stellung in ein 
anderes Unterprogramm gesprungen werden, so er¬ 
folgt die Abfrage: 

10 on joy(l) gosub 100,200,.... 

Prinzipiell muß die IF-Anweisung, die am häufigsten 
wirksam wird, am Anfang stehen. Dann sollten die 
folgenden Zeilen übersprungen werden, damit keine 
unsinnigen Abfragen erfolgen. 


ÜBERBLICK IM BUCHSTABEN-DSCHUNGEL 


Mit SCRIPT/PLUS gibt es für den CI6 ein sehr gutes 
Textsystem, mit dem auch größere Werke wie Di¬ 
plomarbeiten oder Bücher geschrieben werden kön¬ 
nen. Oft wird dafür ein umfangreiches Stichwort-Re¬ 
gister gebraucht. Seine Erstellung ist eine langwierige 
und langweilige Arbeit, die uns zum Teil der Compu¬ 
ter abnehmen soll. 

Die folgende Beschreibung unseres Programms 
TEXTANALYSE gilt nicht nur für SCRIPT/PLUS, 
sondern für alle Textprogramme, die mit sequentiel¬ 
len ASCII-Dateien arbeiten. Manche Programme ar¬ 
beiten mit PRG-Files und Bildschirm-Code. Hier müs¬ 
sen die entsprechenden READ- und WRITE-Befehle 
abgeändert und der Bildschirm-Code in ASCII-Code 
umgewandelt werden. 

Natürlich kann kein Programm wissen, welche Wörter 
wichtig sind und deshalb im Register erscheinen sol¬ 
len. Sie müssen also zunächst die entsprechenden Be- 
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pffe herausschreiben, sinnvollerweise mit SCRIPT/ 

' LUS. Es genügt, die Suchbegriffe in der Reihenfolge 
schreiben, wie sie gefunden werden. Dies geschieht 
im besten gleich beim Schreiben des Textes. 

Es ist vorteilhaft, daß SCRIPT/PLUS zwei Texte pa- 
*ijlel im Speicher halten kann (umschalten mit 
-SC&J bei 64 KByte), also den eigentlichen Text 
md das Stichwortregister. Das alphabetische Sortie¬ 
rer übernimmt der Computer. 

Damit das Programm seine Aufgabe ordentlich verrich¬ 
ten kann, müssen einige Vorkehrungen getroffen 
werden: 

ai Der Text sollte in der endgültigen Fassung vorlie¬ 
gen. 

b) Die einzelnen Seiten müssen mit der Seiten-Ende- 
Kennung markiert werden (reverser Stern und fpO). 

Es kann jede beliebige Zeichenfolge als Trennungs¬ 
zeichen zwischen zwei Seiten benutzt werden, sie 
muß nur in Zeile 110 in u$ geändert werden und 
darf nicht im Text Vorkommen. 

c) Alle Textfiles müssen hintereinander in der richti¬ 
gen Reihenfolge auf einer Diskette stehen und mit 
TEXT... anfangen (siehe Zeile 150). Das Stichwort¬ 
verzeichnis muß REGISTER heißen (Zeilen 370 und 
650). 

d) Sind mehr als 100 Begriffe zu suchen, so muß die 
Variable mx in Zeile 100 erhöht werden. 

Sind diese Bedingungen erfüllt, so kann das Pro¬ 
gramm gestartet werden. Zunächst wird nachgefragt, 
ob das Register sortiert werden soll. Dies ist nur nö¬ 
tig, wenn die Begriffe noch nicht in alphabetischer 
Reihenfolge vorliegen. Auf den Programmablauf hat 
es keinen Einfluß. 


DIRECTORY VOM BILDSCHIRM LESEN 


Damit das Programm erkennen kann, wie die einzel¬ 
nen Textfiles heißen, müssen die Namen aus dem Direc¬ 
tory übernommen werden. Sehr aufwendig ist es, die 
Namen direkt von SPUR 18 auf der Diskette zu lesen. 
Einfacher geht es, wenn das Programm die Namen zu¬ 
erst mit DIRECTORY anzeigt (Zeile 150) und sie 
dann aus dem Bildschirmspeicher liest. 

Mit OPEN3,3 wird der Bildschirm als Eingabegerät 
definiert und der Cursor mit dem CHAR-Befehl an 
die richtige Stelle gebracht. Das Programm liest mit 
‘GET#3,a$‘ das Zeichen, das sich in Cursorposition 
befindet (Zeilen 160 bis 190). 

Noch ein wichtiger Tip: Eine FOR-NEXT-Schleife 
sollte immer ordnungsgemäß verlassen werden, da, bei 
einem Sprung aus der Schleife, die Schleife im Stapel 
(Stack) noch als offen steht. Dabei kann es passieren, 
daß der für den Stapel verfügbare Speicherplatz irgend¬ 
wann nicht mehr reicht und ein ‘OUT OF MEMORY 
ERROR‘ erscheint. Das kann leicht zu Verwirrungen 
führen, da mit FREE(8) immer noch freier Speicher¬ 
platz angezeigt wird. 


ERKENNEN VON GANZEN WÖRTERN 


Um die Begriffe im Stichwortregister mit denen im 
Text zu vergleichen, muß sie das Programm im Text 
erkennen. Gewöhnlich dienen als Trennung zwi¬ 
schen einzelnen Wörtern die Satzzeichen, das Leerzei¬ 
chen oder das RETURN-Zeichen (CHR$(13)). Daher 
wird aus den einzelnen Zeichen, die mit GET#2,A$ 
eingelesen werden, eine Zeichenkette gebildet (Zeilen 
250 bis 300), bis A$ mit einem Zeichen aus TR$ 
(Zeile 140) übereinstimmt (Zeile 260). Jetzt muß die¬ 
ses Wort mit den Begriffen aus dem Register vergli¬ 


chen werden. Durch die Verwendung eines bereits 
sortierten Registers läßt sich die Suche beschleuni¬ 
gen. Sie kann mit der Zeile 

565 if sw$(t)<w$ then t=mx:goto600 

abgebrochen werden, wenn die noch folgenden Begrif¬ 
fe im Register weiter hinten im Alphabet stehen. 

Ein logischer Vergleich mit dem <- oder >-Zeichen er¬ 
scheint manchem seltsam. Dem Computer ist es aber 
egal, ob Zahlen oder Buchstaben verglichen werden 
sollen. Bei einem Größenvergleich von zwei Zeichen¬ 
ketten wird Zeichen für Zeichen verglichen, ob der je¬ 
weilige ASCII-Code größer oder kleiner ist. Zum Bei¬ 
spiel ist abc kleiner als abd und ABC größer als abc. 
Diese ganzen Vergleiche sind sehr zeitaufwendig, da¬ 
her sollte das Programm nach dem Eintippen zunächst 
mit einem kleineren Text getestet werden. 

Schneller wird das Programm, wenn alle PRINT-An- 
weisungen entfernt werden und der Bildschirm abge¬ 
schaltet wird. Dies ist jedoch erst beim ausgetesteten 
Programm ratsam. 

In Zeile 300 wird abgefragt, ob das File schon zu 
Ende ist. Dann ist nämlich die Statusvariable ST grö¬ 
ßer Null. Wird ein Begriff gefunden, so wird die ent¬ 
sprechende Seitenzahl an bereits früher gefundene 
Seitenzahlen in SZ$(I) angehängt. Auch das nötige 
Komma zwischen den Seitenzahlen wird nicht ver¬ 
gessen. Da ein Begriff auf einer Seite oft mehrmals 
vorkommt, muß überprüft werden, ob diese Seite be¬ 
reits registriert wurde (Zeile 580). 


SICHERHEIT IST TRUMPF 


Beim Abspeichern wichtiger Daten ist es immer sinn¬ 
voll, eine Sicherheitskopie der alten Daten anzuferti¬ 
gen. In Zeile 670 wird der Name des alten Files ge¬ 
ändert und das neue File in den Zeilen 680 bis 690 
unter dem alten Namen abgespeichert. In den Zeilen 
700 bis 710 kann die Sicherheitskopie gelöscht wer¬ 
den. Die bequemen Befehle RENAME und SCRATCH 
lassen sich liier nicht verwenden, da sie nicht mit 
Variablen funktionieren. 


NACHTRAG ZU C16-P4-SPECIAL 1/88 


Im letzten Heft wurde ein kleines Spiel als Beispiel 
tür die Möglichkeit, mit Strings Spielfiguren auf dem 
Bildschirm darzustellen, besprochen. Leider hat der 
Druckfehlerteufel das dazugehörige Programm 
(Würfelstop) unterschlagen. Sie finden es in dieser 
Ausgabe. 

Noch eine kurze Anleitung: Wählen Sie am Anfang 
eine höhere Zahl für die Geschwindigkeit (zum Bei¬ 
spiel 100). Es erscheinen dann zwei Würfel. Der linke 
ist unbeweglich, der rechte verändert sich schnell. 
Stimmen beide Würfelaugen überein, muß eine Taste 
gedrückt werden. Ziel ist es, möglichst viele richtige 
Stoppversuche zu erreichen und möglichst wenige 
Übereinstimmungen zu verpassen. 

Sie brauchen ein flinkes Auge, um selbst bei gerin¬ 
ger Geschwindigkeit noch Treffer zu erzielen. □ 


Alle Listings 
auf Diskette 
erhältlich! Seite 64 


97 




10 rem text-analyse ===========c16 <de> 

20 rem (p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by r. schmid-fabian <jp> 
50 rem heidelberg <Kp> 

60 rem <ah> 

70 rem basic v3.5 - <nl> 

80 rem c16/116/p4 + floppy <jh> 

90 rem =========================== <jg> 

100 gosub720:mx=100:rem trap310 <oi> 

110 u$=chr$(128)+"*fp0" <ob> 

120 dim ff$(24),sw$(mx),sz$(mx) <PP> 

130 gosub370 <pp> 

140 tr$=" .,"+chr$(13):rem trennze 
ichen <md> 

150 scnclr:directory"text*" :open3, 

3 < ji> 

160 fory=1to23:forx=6to23 <ln> 

170 char,x,y,:get#3,a$:ifa$<>chr 
$(34)thenff$(y)=ff$( y)+a$:goto180 <he> 
175 x=24:char,0,y,chr$(27)+ "q" <co> 
180 if instr(ff$(y),"free.") then 
ff$( y )="":hlt=y-1:y=24 <on> 

190 nextx,y:printchr$(27)"o"chr$(1 
47):close3 <11> 

200 fori=1to23:printff$(i):next <aK> 
210 for y=1 to hlt:p$=ff$Cy) <nb> 

220 sz=sz+1:z$=str$(sz):lz=len( z$) <in> 
230 open2,8,2,p$+",s,r" <oj> 

240 printchr$(18)"Analyse von "+p$ <do> 
250 fori=1to50000 <oa> 

260 get#2,a$:if instr(tr$,a$)=0 th 
en w$=w$+a$:goto300 <nm> 

270 if w$=u$ then sz=sz+1:z$=str$( 
sz):lz=len(z$):printchr$(18)"Seite 
"sz <po> 

280 rem printw$:rem nur in testpha 
se <ni> 

290 gosub560:w$="" <lo> 

300 ifst=0then nexti <kf> 

310 close2:nexty <lh> 

320 goto650 <ml> 

330 rem-<dk> 

340 rem einiesen des <co> 

350 rem Stichwortregisters < PP > 

360 rem-<gg> 

370 open2,8,2,"register"+",s,r" <lk> 
380 fori=1tomx:input#2,sw$( i):prin 
tsw$(i) <ie> 

390 if st=0 then nexti <cl> 

400 mx=i:close2 <mg> 

410 scnclr:print"Stichwortregister 
sortieren? (J/N)":getkey a$:if a$ 

="n" then return <pb> 

420 rem- < gP > 

430 rem sortieren des <kl> 

440 rem Stichwortregisters <oi> 

450 rem -<ni> 


460 fori=1tomx:a$=sw$(i) <ea> 

470 fork=1tomx:b$=sw$(k) <op> 

480 ifa$<b$thensw$(i)=b$:sw$(k)=a$ 
:a$=b$ - <ld> 

490 nextk:printi,sw$(i):nexti <bc> 

500 fori=1tomx:printsw$(i):next <en> 

510 return <in> 

520 rem- < Pg > 

530 rem durchsuchung des <ml> 

540 rem Stichwortregisters <dj> 

550 rem-<ok> 

560 for t”1 to mx:if sw$[t)“"" the 
n t=mx:goto600 <kf> 

570 if sw$(t)<>w$ then 600 <pa> 

580 if sz$(t)"" H then sz$(t)“z$:pr 
intw$+sz$(t) <id> 

590 ifright$(sz$(t),lz)<>z$ then s 
z$(t)=sz$(t)+","+z$:printw$+sz$( t) <le> 
600 nextt:return <af> 

610 rem-<op> 

620 rem abspeichern des <hp> 

630 rem Stichwortregisters <ik> 

640 rem-<hh> 

650 p$="register" <bm> 

660 printchr$[147)"Jetzt wird "+ch 
r$(34)+p$+chr$( 34)+" abgespeichert 
(Taste)getkeya$ <mn> 

670 open 1,8,15,"r:" + left$(p$+d$,12 
)+".bak+"+"="+p$:close1 <gg> 

680 open2,8,2,p$+",s,w" <dg> 

690 fori=1tomx:print#2,sw$Ci),sz$( 
i):next:close2 <gk> 

700 printleft$(p$+d$,12)+".bak";:i 
nput" loeschen (j)";q$:ifq$<>"j”th 
enstop <el> 

710 open 1,8,15,”s:" + left$Cp$+d$,12 
)+".bak"+"="+p$:close1:end <la> 

720 d$=chr$(32):d$=d$+d$+d$ <lj> 

730 d$=d$+d$+d$+d$:return <jb> 

750 rem programmende <nf> 

760 rem ========================== <jf> 
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WUERFEL — REAKTION 


LISTING 


j 


10 rem wuerfel-reaktion ™—=-c16 
20 rem ( p) commodore weit team 

40 rem (c) by schmid-fabian 
50 rem 

60 rem basic v3.5 

70 rem =========================== 

80 d$=chr$(32):d2$=d$+d$:d3$=d2$+d 
$ 

90 d5$=d3$+d2$:d$=d5$+d5$ 

100 bs$=chr$(157)+chr$(157)+chr$(1 
57)+cbr$(17) 

110 pl$="Q"+d2$+bs$:pm$=" Q "+bs$: 
pr$=d2$+"G|"+bs$ 

120 p2$="Q Q"+bs$: n$=d3$+bs$ 

130 rem *** wuerfel definieren *** 
140 w$(0)=n$+n$+n$ 

150 w$(1)=n$+pm$+n$ 

160 w$(2)=pr$+n$+pl$ 

170 w$(3)=pr$+pm$+pl$ 

180 w$(4)=p2$+n$+p2$ 

190 w$(5)=p2$+pm$+p2$ 

200 w$(6)=p2$+p2$+p2$ 

210 rem ****** bei-spiel ********* 
220 rem ****** reaktion ********** 
230 printchr$(142)chr$(147):char,7 

5 h h 

f 

240 input"geschwindigkeit";v:gosub 
390 

250 printchr$C147):char,7,5,"taste 
bei uebereinstimmung" 

260 gosub360:char,15,10,w$(a):wz=a 
270 gosub 360:char,20,10,w$(a) 

280 for t=1 to v:next 
290 get a$ 

300 if (a=wz) and (a$=" H ) theri nv = 

nv+1:gosub390 

310 if a$="" then 270 

320 if a=wz then nr=nr+1:else nf=n 

f+1 

330 gosub 390 
340 getkeya$:goto250 
350 rem ** zufallszahl wuerfeln ** 
360 a=int(rnd(1)*6)+1:if a=wn then 
360 

370 wn=a:return 

380 rem **** anzeigen ************ 
390 char,2,2,d$+d$+d5$ 

400 char,2,2,"richtig”+str$(nr) 

410 char,15,2,"falsch "+str$(nf) 

420 char,27,2,"verpasst "+str$(nv) 
430 return 

450 rem programmende 

460 rem ========================== 


<cj> 
<ho> 
<ng> 
< 1 o> 
<pd> 
<od> 
<po> 

<ek> 

<fp> 

<Pj> 

<ij> 

<ek> 

<gj> 

<ai> 

<nm> 

<on> 

<kc> 

<ea> 

<pb> 

<nj> 

<nl> 

<ek> 


<ia> 


<im> 


<pl> 

<he> 

<gc> 

<kn> 

<ee> 

<bi> 

<pn> 

<pf> 

cig> 

<np> 

<gc> 

<po> 
<cb> 
<lf> 
<id> 
<ee> 
<dn> 
<hp> 
<on> 
<kf > 
<pc> 
<jk> 


DIR- 

Printer 

Unser DIR-PRINTER hilft Ihnen, die Übersicht 
über Ihre Programmsammlung zu behalten. Jetzt 
brauchen Sie nicht mehr lange zu forschen, auf 
welcher Diskette was zu finden ist. 

Inhaltsverzeichnis per Programm, das erübrige sich 
doch, mag manch einer sagen. Sicher, mit dem CMD- 
Befehl, gefolgt von DIRECTORY, geht es auch. 

Nur ergibt dies mitunter ellenlange, und recht unüber¬ 
sichtliche Listen. Auf einer Diskettenhülle finden sie 
schon gar nicht Platz. 

Unser Programm DIR-PRINTER druckt das Inhalts¬ 
verzeichnis dreispaltig aus. Blockzahlen werden weg¬ 
gelassen, so daß die Druckbreite etwa der einer Dis¬ 
kettenhülle entspricht. Wenn Sie die Übersicht über 
den Inhalt Ihrer Disketten behalten wollen, kommt 
Ihnen dieses Programm sicher gerade recht. Einfach 
das Directory ausdrucken, auf die Diskettenhülle kle¬ 
ben, und in Zukunft brauchen Sie nicht mehr erst die 
Diskette ins Laufwerk stecken, um zu sehen, was 
darauf ist. □ 
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DIR — PRINTER 


10 rem dir-printer======= = -~= r -=c 16 

20 rem (p) commodure weit team 
30 rem 

40 rem (c) by detlef loKay 
50 rem 
60 rem 

70 rem basic v3.5 
80 rem c16/116/plus4 

100 gosub 550 

110 printci$Ieft$( qd$,5) 

120 print left$( qr$, 10)"*********** 

130 printleft$(qr$,10)"* 

* M 

140 printleft$(qr$,10)"* dir-print 
er *" 

150 printleft$( qr$, 10) "* oopyrigh 
t *" 

160 printleft$(qr$,10)"* d.lokay 


d. lokay 


170 printleft$(qr$,10)"* 


180 printleft$(qr$,10)"*********** 

190 forx~1to1000:next :priritcl$ 

200 printc4$c4$c4$c3$c3$"der dir-p 
rinter druckt die" 

210 print" directory 3-spaltig au 
s." 

220 printc4$e4$c4$" bitte entspre 
chende disk " 

230 print" einlegen und drucker e 
inschalten." 

240 printc4$c4$c4$" zum start bei 
iebige taste." 

250 geta$: ifa$=""then250 
260 printcl$ 

270 printleft$(qd$,11)left$(qr$,7) 
"ausdruck laueft." 

200 open2 t 4: 

290 open 1,8,0,"$0" 

300 get01,a$,b$ 

310 gosub470:b=b+1 

320 get#1,b$:if st<>0 then 360 

330 if b$<>chr$(34) then 320 

340 get#1,b$:if b$<>chr$(34)then p 

rint#2,b$;:goto340 

350 if st=0 then 300 

360 print#2,chr$(13);chr$( 13) 

370 print#2:close1:close2 

380 printcl$:printleft$(qd$,5)left 

$(qr$,6)"fertig." 

390 printc4$c4$c3$c3$c3$"weitere a 

usdrucke j/n ?":print:print 

400 geta$:ifa$=""then400 

410 ifa$<>"j"thenend 

420 ifa$="j"thenprint" disk wech 


print" 
printc4$' 


weiter mit tastend 


geta$: if a$“""tiien450 
run 280 

ifb<1thenreturn 
ifb^1thenprint#2,chr$( 13) 


a=a+1 

ifa=1thenprint^2,chr$( 16) ;"17" 

H , 

ifa=2thenprint#2,chr$( 16) ;"35" 

ff , 

> 

ifa=3thenprint#2 
ifa=3thena~0 
return 

rem nachspanri ======-===*====■=•• = 

rem * farbcodes/steuercodes - 
c4$~chr$C 017):c3$~ chr$( 029) 
cl$=chr$(147) 

rein ********* Zeichenfolgen * 

for q~1 to 40 

qd$= r qd$+c4$ :qr$~qr$+c3$ 

next q 

return 


rem ======"■ 


rem 12277 
rem 01787 
rem 00056 
rem 00000 
rem 00408 
rem 10026 


bytes memory 
bytes program 
bytes variables 
bytes arrays 
bytes strings 
bytes free (0) 
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LISTINGS 


DER COMPUTER ALS LERNINSTRUMENT 


Zehnfinger 

System 


Im Gegensatz zur Schreibmaschine kann ein 
Computer Aufgaben stellen und Leistungen aus- 
»verten. Was liegt also näher, als ihn zum Erlernen des 
Maschinenschreibens zu benützen? 


Dem Lernenden werden 
erschiedene Übungen an- 
^eboten. Er kann sich an 
Fingerübungen heranma- 
-hen, an längere Buchsta¬ 
benfolgen, an sinnvolle 
Wörter, oder sich an 
schwierigen Texten ver¬ 
suchen. Die Fingerübun¬ 
gen gehen von kleinem 
Buchstabenvorrat zu grö¬ 
berem über. In den kom¬ 
plizierteren Versuchen 
wird also auch der Buch¬ 
stabensatz der vorange¬ 
gangenen gefordert. Da¬ 


durch kommen aber die 
schwierigeren, weil selte¬ 
ner vorkommenden, Zei¬ 
chen etwas zu kurz. 

Ein weiteres Manko ist, 
daß keine deutsche Ta¬ 
statur mit vertauschtem 
Y und Z simuliert wurde. 
Das ist aber nicht tragisch, 
es ist mit unserer Tasta¬ 
turanpassung leicht zu be¬ 
heben. Verbesserungsvor¬ 
schläge und Anregungen 
zu diesem Programm wer¬ 
den gerne entgegenge¬ 
nommen. 



SCHREIBMASCH XJM E N K U R S 


10 rem schreibmaschinenkurs —c16 
20 rem ( p) 09/8? commodore weit 

40 rem (c) by klaus freitag 2.0 
50 rem klaus -Freitag 
60 rem 

70 rem ( v) by bernd weite 3.5 

80 rem c16/116/plus4 


<gP> 
<bf > 
<ng> 
<ea> 
<lh> 
<ah> 
<ae> 
<ki> 
<jg> 


100 cl$=chr$( 14?):wh$=chr$(005) <pl> 
110 rn$=chr$(018):rf$=chr$(146) <hm> 
120 c4$*chr$(017):s1$=chr$(032) <ag> 
130 a2$=s1$+s1$:a3$=a2$+s1$ <gj> 
140 a4$=a3$+s1$:a5$=a4$+sl$ <oe> 
150 Ö2$=c4$+c4$:d3$=d2$+c4$ <cf> 
160 d4$=d3$+c4$;d5$-d4$+c4$ <al> 
170 ka$=chr$(064):c3$=chr$(029) <mb> 
180 w2$“c3$+c3$:w3$-w2$+c3$ <kj> 
190 w4$=w3$+c3$:w5$=w4$+c3$ <nd> 
200 he$=chr$(019):s5$=chr$(101) <da> 


210 key 1,chr$(133):key2,chr$(134) <mf> 
220 key 3,chr$( 135) : ke.y4,chr$( 136) <bl> 
230 key 5,chr$(13?):key6,chr$(138) <fd> 
240 key 7,chr$(139):keyB,chr$(139) <jm> 
250 dimc(15),d$(40),w$(50),r$(50) <ie> 
260 aa$=cl$+wh$frn$+a5$+"c16 schre 


ibmaschinenkurs"+a5$+a5$+s1$ < PP > 

270 poke65305,0:poke65301,0 <nd> 

280 printaa$ <aj> 

290 printd2$rn$"f1"rf$" - fingerue 
bung" <ia> 

300 printc4$rn$"f2"rf$" - schreibu 
ebung" <ca> 

310 printc4$rn$"f3"rf$" - wortuebu 
ng" <al> 

320 printc4$rn$"f4"rf$" - wortuebu 
ng fuer fortgeschrittene" <cb> 

330 printc4$rn$"f5"rf$" - schwieri 
ger text" <ph> 

340 printc4$rn$"f6"rf$" - ende" <ck> 
350 printd3$rn$"f8"rf$" - erklaeru 
ngen" <nh> 

360 geta$:ifa$=""goto360 <gd> 

361 onasc(a$)-132goto450,810,900,1 

780,1200,1650,2160 <he> 

440 goto360 <en> 

450 printaa$ <km> 

460 printc4$"bitte buchstabenkombi 
nation waehlen" <el> 

470 printd2$rn$"1"rf$" - asdejkl" <bl> 

480 printrn$"2"rf$" - eidk" <nl> 

490 printrn$"3 H rf$" - wosl" <ie> 

500 printrn$”4"rf$" - fghj" <gb> 

510 printrn$"5"rf$" - fjvm" <ca> 

520 printrn$ M 6"rf$" - fjbn" <lp> 

530 printrn$"7"rf$" - tfj" <ch> 

540 printrn$"8"rf$” . - dkc" <ie> 

550 printrn$"9"rf$" - slx" <dp> 

560 printrnl”10"rf$" - qpa" <eb> 

570 printrn$ M 11"rf$” - rufj" <nf> 

580 inputa:ifa<1ora>1lgoto580 < jp > 

590 op=a*10:ru=0:ri=0 <gl> 

600 restore <ea> 

610 ad=int(op*rnd(1)+1) <jc> 

620 fori=1toad:readfi$:next <kl> 

630 printaa$ <ph> 

640 printhe$d5$d5$w5$w5$fi$ <cf> 
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650 printd5$;;inputon$ <ei> 

660 iffi$=an$thenri=ri+1 <ae> 

670 ru=ru+1:ifru=16thengoto690 <hl> 

680 goto600 <fo> 

690 m=16:goto1700 <ml> 

700 data H fsda M ,"jlk M ,"fdsa","asdf" 
, H lKj% H osdf , % H fd50 H J "JKl H f B d5a%" 
sdf" <ek> 


710 data"ded", H def H ,"des","kik","k 
ij","kil","ded","kik", H ede","iki" < lc> 
720 data"sws","swd",swa","lol","lo 
k","loo","sws","lol","wsw\"olo H <pi> 
730 data‘ , fgf","fgd H l H fgs M > H jhj H l H j 
kh","jhl","fgf","jhj","gfg","hjh" <je> 
740 data"fvf”,"fvd","fvs","jmj","j 
mk H ,"jml H ,"fva", "mj j" ,"dvs","mlj" <bb> 
750 data"fbf","f bd","fbs”,"jnj","j 
nk","jnl","fbf","jnj","fbs" <oc> 

760 data"ttf","tft","ftg","ujj","h 
jh","hjj”,"ftf","jtj","tft","tfg" <ai> 
770 data"dcd" , "dcf " ,"dcs","kck","k 
cl H ,"ckk","dcf","kcj","dev","kem" <cg> 
700 data"sxs","sxd","sxa","lxl","l 
xx","lxk","sxs","lxl","xsx",xlx" <lb> 
790 data"aqa","aqs","aqd","qas","q 
af","aqa","ppl","ppk","kpj","kpl" <bd> 
000 data"frf","frd","frs","juj","j 
uk","jul","drf","juj","frd","juk" <pd> 


010 printaa$:an=90 <ai> 

020 forii=1to10:printaa$ <be> 

830 fori-1to15 <1 b> 

040 c(i)=int(an*rnd(1)+1) <hj> 

050 ifc(i)<65goto040 <gn> 

060 f$=f$+chr$(c(i)):nexti <ah> 

870 printhe$d5$d5$w5$w5$f$ <jj> 

080 printd4$:inputan$:ifan$=f$then 
ri=ri+1 <cp> 

890 f$="":nextii:m=10:goto1700 <na> 

900 printaa$ <pa> 

910 d$(1)="fad":d$(2)="al1":d$(3)= 

"als" <nk> 

920 d$( 4) ="las":d$( 5)="das":d$(6) = 
"seid" <no> 

930 d$(7)="riff":d$(8)="rede" <da> 

940 d$(9)="erde":d$(10)="felge" <ka> 


950 d$[11)“"hilf b": d$(12)="orgel" <hk> 
960 d$(13)-"fuhre":d$(14)="klage" <il> 
970 d$C15)“"narbe":d$(16)="nobel" <ae> 
980 d$(17)="leber":d$(18)="sonne" <gj> 
990 d$( 19) “"pappe" :d$( 20) =*"quart" <cb> 
1000 d$(21)="pulver":d$(22)="yard" <dh> 
1010 d$( 23)“"hyaene":d$(24)="mysti 
k" <lh> 

1020 d$(2S)="hypothek":d$( 26)= "eit 
y" <pe> 

1030 d$C27)“"loyal":d$(28)="typhus 
" <fo> 

1040 d$(29)="analysen":d$(30)= "spu 


le” <hp> 

1050 d$( 31)“"quarze":d$t 32)“"empor 
" <nh> 

1060 d$( 33) - "wispern":d$(34)-”paul 
" <ha> 


1070 d$( 35)="olymp":d$(36)“"symbol 
" <bg> 

1080 d$( 37)'^ w xylophon" : d$t 38) ="eic 
ht" <lo> 

1090 d$(39)“"wirkt":d$( 40)="wichti 
g" <hf> 

1100 printd2$"wieviele worte moech 
ten sie schreiben" <pl> 

1110 printd2$:inputwi <al> 

1120 printaa$:fori=1towi:printaa$ <kc> 

1130 as-int(rnd(1)*40)+1 <ci> 

1140 printhe$d5$d5$w5$w5$d$(as) <gb> 

1150 printd5$ <je> 

1160 inputan$ <li> 

1170 ifan$=d$(as)thenri=ri+1 <kf> 

1180 next <md> 

1190 m=wi:goto1700 <dk> 

1200 w$(1)“"wie eine":w$(2)“"leben 
strotzende" <lo> 

1210 w$(3)-"gluckhenne":w$(4)~"sta 
nd die mutter" <am> 

1220 w$(5)“"mitten unter ihrer" <fl> 
1230 w$(6)“"bluehenden":w$(7)“"kin 
derschar." <ko> 

1240 w$(8)="sie hatte ein brot" <mn> 

1250 w$(9)“"gegen den dicken leib 
gepresst" <cb> 

1260 w$(10)= "und schnitt":w$(11)=" 
mit einem” <he> 

1270 w$(12)“"sichelartigen messer" <fo> 

1280 w$(13)“"grosse scheiben ab," <fm> 

1290 w$(14)“"die jedes mal" <cc> 

1300 w$[15)="sofort" <if> 

1310 w$(16)="von den kindern" <cj> 

1320 w$(17)“"weggeschnappt und" < PP > 

1330 w$(18)="in die taschen" <cc> 

1340 w$(19)“"gestopft wurden." <bh> 

1350 w$(20)“"horieneken” <pb> 

1360 w$(21)="nahm ihr koerbchen" <fo> 

1370 w$(22)="mit dem Strickzeug” <jm> 

1380 w$(23)-"und den schulbuechern 
" <ah> 

1390 w$(24)="-erst zog sie noch" <dm> 

1400 w$(25)”"fons die struempfe in 
die hoeh f ," <kg> 

1410 w$(26)“"knuepfte sarel die ho 
se zu," <dp> 

1420 w$(27)="putzte ludwig die nas 
e-" <eo> 

1430 w$(28)“”und nachdem" < gj > 

1440 w$(29)="die mutter gemahnt ha 
11 e:" <dh> 
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3 


-50 w$( 30)="dass ihr mir" < jg > 

-50 w$( 31) “"schnurstracks in die 
schule geht," <fp> 

-70 w$( 32)="hoert ihr," <gh> 

•*80 w$(33)~"ihr bengels!" <li> 

*90 w$( 34)="schoss die ganze band 

< gi > 

D00 w$'( 35)-“zur tuer hinaus," <gd> 

510 w$(36}="durch den blumengarte 

<oj> 

520 w$( 37)="ueber den breiten fei 
d«eg," <bi> 

'530 w$( 38)="geradewegs auf die gr 
osse goldige sonne zu," < gg > 

'540 w$(39)="die drueben hinter de 
n erlenstaemmen" <pc> 

J 550 w$(40)="in einem maechtigen s 


trahlenfeuer" <ia> 

‘560 w$(41)="heraufgestiegen Kam." <eh> 
1570 printaa$:fori=1to41:printaa$ <ej> 
1580 printhe$dS$dS$w$(i) <np> 

1590 forii=1toi 000:nextii:printaa$ <kh> 
1600 printhe$dö$d5$ <lg> 

1610 inputab$ <ng> 

1620 ifab$=w$(i)thenri=ri+1 <oe> 

1630 next <ek> 

1640 m=41:goto1700 <dn> 

1650 printaa$ <ph> 

1660 printd5$c4$w5$w5$"bi ttB daran 
denken:" <ab> 

1670 printd2$w5$"nur uebung macht 
den meister!" <if> 

1680 printw5$;:fori=0to26:prints5$ 

; :next:prints5$ <ao> 

1690 end <mb> 

1700 printaa$ <bo> 

1710 printd3$"sie haben";ri <mb> 

1720 printd3$"von";m <ch> 

1730 printd3$"moeglichen punkten." <fb> 
1740 printd5$d5$w5$w5$w3$rn$"menue 
->taste" <ng> 

1750 geta$:ifa$="”goto1750 <dp> 

1760 ri=0 <ld> 

1770 goto270 <lg> 

1780 r$(1)="abbreviation":r$(2)="b 
abylonien” <pd> 

1790 r$(3)="caballero":r$(4)="dada 
istisch" <ef> 

1800 r$(5)="eau de cologne":r$(6)= 

"facetenauge" - <pc> 

1810 r$(7)="gabardinemantel":r$(8) 
="habeaskorpusakte” <na> 

1820 r$[9)="iberoamerikanisch”:r$C 
10)="kabinettformat” <ol> 

1830 r$C11)="labiovelar":r$(12)="m 
achination" <oi> 

1840 r$( 13)="nebukadnezar”:r$(14) = 

"objektivation" < jj > 

1850 r$(14)="pachulke":r$(15)="qua 


dragesima" <cj> 

1860 r$(16)="rachmaninow":r$(17)=" 
sabbatstille" <in> 

1870 r$( 18) = "tachygraphie":r$(19) = 
"ultima ratio" <mk> 

1880 r$(20)="vakuumverpackt":r$(21 
)“"waffenstillstandslinie" <ep> 

1890 r$(22)="xanthin":r$(23)="yama 
shita" <ko> 

1900 r$( 24) ="zapfenzieher":r$(25) = 
"allochthon" <mi> 

1910 r$(26)="ballyhoo":r$(27)="cha 
uffieren" <Bi> 

1920 r$(28)="couture”:r$(29)="couv 
ert" <ba> 

1930 r$(30)="derogation":r$[31)="d 
ialysieren" <fn> 

1940 r$(32)="differenziertheit":r$ 

(33)="di6tributionsformel” <ci> 

1950 r$(34)="dreiviertel":r$(35)=" 
dystrophiker" <lb> 

1960 r$(36)-"egozentriker":r$( 37) = 
"endothel" <ke> 

1970 r$(38)“"enzephalitis":r$[ 39) = 
"explosionssicher" <fm> 

1980 r$(40)="folgendergestalt":r$( 

41)="galanthomme" <nf> 

1990 r$(42)-"garnisonieren":r$(43) 
="glyptik" ' <ep> 

2000 r$(44)="guerillakrieg":r$(45) 
=”hypothese" <Bb> 

2010 r$C46)="ikonostase":r$(47)="i 
mpressionabel" <hp> 

2020 r$(48)="in dulci jubilo":r$(4 
9)="interlinearglosse" <gm> 

2030 r$( 50)="isochromasie" <ii> 

2040 printaa$:printd2$"wieviele wo 
rte moechten sie schreiben" <kl> 

2050 printd2$:inputwi <dl> 

2060 printaa$ <lj> 

2070 fori=1towi:printaa$ <mm> 

2080 as=int(rnd(1)*40)+1 <bb> 

2090 printhe$d5$d5$w5$w5$r$(as) <kh> 
2100 forii=1to2500:next:printaa$ <ep> 
2110 printd5$ <mi> 

2120 inputan$ <oo> 

2130 ifan$=r$(as)thenri=ri+1 <fh> 

2140 next <ek> 

2150 m=wi:goto1700 <ig> 

2160 printaa$;print <□!> 

2170 printrn$"fingeruebung"rf$" es 
ist eine kombination” <nl> 

2180 print"aus der vorgewaehlten b 
uchstabenreihe" <cn> 

2190 print"nachzuschreiben.die ueb 
ungen sind auf-" <kp> 

2200 print"einander aufgebaut,d.h. 

:wenn sie z.b." <dl> 
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FUNKTIONS—GRAPHEN 


2210 print"uebung 5 woehlen,sollte 
n sie die" <cn> 

2220 print"uebungen 1 - 4 beherrsc 
hen. <pn> 

2230 printd2$rn$"schreibuebung"rf$ 

" ich zeige ihnen hier" <fj> 

2240 print"eine buchstobenhombinat 
ion aus 15 zu-" <ic> 

2250 print"foellig ausgewoehlten z 
eichen,die sie" <ne> 

2260 print"nachschreiben sollen. <ng> 
2270 printd3$a5$a5$s1$rn$"bitte ta 
ste"rf$ <hn> 

2200 getp$:ifp$=""goto2280 <og> 

2290 printaa$:print <ij> 

2300 printrn$"wortuebung"rf$" es s 
ind einfache worte" <mn> 

2310 print"nachzuschrBiban." <en> 

2320 printd2$rn$"wortuebung fuer f 
ortgeschrittene"rf$ <aa> 

2330 print"es sind schwierige wort 
e nachzu-" <ef> 

2340 print"schreiben,die ausserdem 
nur kurz zu" <hb> 

2350 print”sehen sind." <la> 

2360 printd2$rn$"schwieriger text" 
rf$" wie wortuebung " <cc> 

2370 prinffuer fortgeschrittene, j 
edoch mit" <bk> 

2380 print"zusammenhaengendem text 
" <kd> 

2390 printd3$a5$a4$rn$"bitte taste 
"rf$ <jo> 

2400 gBtp$:ifp$-""goto2400 <oc> 

2410 printaa$: print <jm> 

2420 print"sie sollte versuchen,al 
le uebungen" <fl> 

2430 print"blind nach dem 10-finge 
r-system zu" <oh> 

2440 print"schreiben." <bb> 

2450 printc4$"es ist ueberigens be 
sser,jeden tag" <gj> 

2460 print"ein paar minuten zu ueb 
en,als einmal" <hn> 

2470 print"in der woche einige stu 
nden." <pj> 

2480 printd5$d3$w5$w5$rn$"bitte ta 
ste" <nl> 

2490 getp$:ifp$=""goto2490 <mf> 

2500 goto270 <ig> 

2510 rem ========================= <el> 

2520 rem 12277 bytes memory <fj> 

2530 rem 08223 bytes program <kj> 

2540 rem 00168 bytes variables <ob> 

2550 rem 00537 bytes arrays <hc> 

2560 rem 00456 bytes strings <el> 

2570 rem 02893 bytes free (0) <fn> 

2580 rem ========================= <mh> 


J 


10 rem funktionen 


c16 <mh> 


20 rem (p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by michael grobe <ie> 

50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem c16/116/plus4 <ki> 

100 scnclr:graphicl,1:graphic0:got 
o420 <fm> 

110 scnclr:print:print:print <ed> 

120 printtabf8}"funktionsgraphen c 
16" <mk> 

130 printtab( 8) ”-- 

—" —- <im> 


140 print:print:print 

150 printtab(9)"von michael grobe 
•• 

160 print"- 

-":print 

170 print"genouigkeit"spc(29)"(0.1 
oder 0.01 oder 0.001):";:inputk 
180 ifk<>0. 1andko0.01andko0.001t 
hen170 

190 print"start x"spc(2)"(-16 bis 
16)"spc(5)":";:inputxs:ifxs<-16orx 
s>16then190 

200 print"ziel"spc(2)"x"spc(2)"(-1 
6 bis 16)"spc(5)":";:inputzz:ifzz< 
-16orzz>16then200 

210 ifzz<xsthenprint"ziel x muss g 
roesser sein als start x !":goto20 
0 

220 print"loeschen (0=n 1=j)”spc(8 
)":";:inputl:if1<>1andl<>0thengoto 
220 

230 x=xs:y=0 
240 graphicl,1 
250 drawl,0,100to319,100 
260 drawl,160,0to160,199 
270 fori=1to20 


<ha> 

<gk> 


<mc> 

<fn> 

<jn> 


<fo> 


<hj> 


<jm> 


<nj> 

<cd> 

<gh> 

<ld> 

<mj> 

<oi> 


280 draw 1,159,200-10*ito161,200-1 
0*i:next <bd> 

290 fori=0to31 <nn> 

300 drawl,10*i,99to10*i,101:next <ji> 

310 ifx>zzthen410 <ep> 

320 rem ========================= <il> 

330 y=5*sin(x) <dc> 

340 rem ========================= <oc> 

350 a=160+(x*10) <bh> 

360 b=100-(y*10) <ig> 

370 ifb<=0then390 <oe> 

380 draw 1,a,b <ah> 

390 x*=x+k <ad> 

400 goto310 <me> 

410 char 1,1,1,"ok":getkeym$:charl 
,1,1," ":graphic0 <pn> 
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LiSTINGSi 


-UNKTIONS—GRARHEN 

-■20 scnclr:list 330: printchr$( 145) 
’runl 10":poke239,2:poke1319, 19:poK 


e'320,1?:end <ch> 

-50 rem =========================* <Kh> 

^40 rem programmende <la> 


Funktions 

Graphen 


Mit Hilfe dieses Programms können Graphen 
mathematischer Funktionen auf dem Bildschirm 
innerhalb eines Koordinaten-Systems 
dargestellt werden. 

Wenn Sie das Programm (hoffentlich fehlerfrei) abge¬ 
tippt und mit RUN gestartet haben, erscheint kurz¬ 
fristig die Kernaussage auf dem Bildschirm, nämlich 
die mathematische Formel in Zeile 330: 

Y = SIN (X) * 6 

Diese Funktion bewirkt, daß Sie solche Kurven auf 
Ihrem Monitor überhaupt darstellen können. 

Diese Formel können Sie natürlich nach Belieben än¬ 
dern, indem Sie den Cursor zu dieser Zeile bewegen. 
Danach starten Sie das Hauptprogramm mit dem auf 
dem Bildschirm angezeigten RUN 110, indem Sie das 
mit der RETURN-Taste bestätigen. 

Die folgenden INPUT-Eingaben fragen Sie nun nach 
gewissen Optionen wie: 

Genauigkeit (zwischen 0.1 bis 0.001) 

Start X-Position (horizontal), Ziel X-Position 
(bei diesen Eingaben sind Werte zwischen -16 bis 
+ 16 möglich). 

Löschen (0 bedeutet, daß der vorher aufgezeigte 
Bildschirm erhalten bleibt, damit können mehrere 
übereinanderliegende Graphen angezeigt werden), 

1 löscht den Monitor, bevor ein Graph gezeichnet 
wird. 

Das aufgeteilte Koordinatennetz im Hires-Modus 
hat den Mittelpunkt X=160, Y=100. 

Eine Einheit enthält zehn Bildschirmpunkte und 



reicht in der horizontalen (X-)Richtung von -16 bis 
+ 16, in der vertikalen (Y-)Richtung von -10 bis 
+ 10 . 

Aus Ihrer Eingabe bei Start X wird nun das erste Y 
errechnet, danach der X- und Y-Wert mit 10 multi¬ 
pliziert (wegen der Einteilung der Einheiten). Der 
zu den Werten gehörige Bildpunkt wird nun gezeich¬ 
net. 

Die angegebene Genauigkeit wird jetzt zu dem ak¬ 
tuellen X-Wert addiert, zur neuen Berechnung springt 
jetzt das Programm zum entsprechenden Listing-Teil 
zurück. Danach wird der Graph auf den Bildschirm 
gezeichnet, den Abschluß dieser Tätigkeit zeigt Ih¬ 
nen der Computer mit der Meldung OK an. 

Nun müssen Sie irgendeine Taste betätigen, um wie¬ 
der an den Programmbeginn zu gelangen. Damit ha¬ 
ben Sie erneut die Möglichkeit, die besagte Zeile 330 
mit einer anderen Funktion zu beschreiben oder ei¬ 
nen Graphen mit anderen Werten zu definieren. 


EINGABE-HINWEISE 


Bei kleiner Genauigkeit (0.1) wird der Graph „löche¬ 
rig“ gezeichnet, dafür aber runder, weil weniger Wer¬ 
te berechnet werden müssen. 

Bei der nächsten Steigerung (0.01) präsentiert sich 
der Graph schon weniger „durchlöchert“, dafür aber 
eckiger. 

Die Genauigkeit „0.01 “ sollte nur bei sehr steil an¬ 
steigenden Graphen (beispielsweise TAN) eingegeben 
werden, da die Berechnung hierbei sehr lange dauert. 

Michael Grohe/hb □ 


Gallows- 

Galgenraten 


Es ist schon erstaunlich, was ein Zwölfjähriger auf sei¬ 
nem Rechner zustande bringt! Die Spielidee ist zwar 
nicht neu, jedoch wurde sie hier mit guter Grafik und 
mit gutem Sound realisiert. 

Gallows ist eine Version des bekannten Spieles „Gal¬ 
genraten“. Der Computer versucht, Sie an den Galgen 
zu bringen, indem er sich ein Wort ausdenkt, von dem 
er glaubt, daß Sie es nicht erraten können. Ein Kampf 
um Bildschirm-Leben oder -Tod beginnt. 

Nach dem Starten will der Computer Ihren Namen 
wissen. Jetzt können Sie zwischen drei Schwierigkeits¬ 
stufen wählen: 10, 5 oder 3 Fehlversuchen. 
Entscheiden Sie dann, ob Sie die Spielregeln sehen 
wollen. Danach beginnt das eigentliche Spiel: Sie se¬ 
hen eine Hintergrundgrafik mit Musikunterlegung. 

Im unteren Teil des Bildes erscheinen so viele Striche, 
wie das zu erratende Wort Buchstaben besitzt. Geben 
Sie einen Buchstaben ein, der im Wort vorkommt, 
so meldet sich der Computer mit einem aufmuntern¬ 
den, hohen Ton und setzt den Buchstaben an die rich¬ 
tige Stelle. Haben Sie jedoch falsch geraten, ertönt ein 
tiefes Knurren und Ihr Gerät zeichnet einen Teil vom 
Galgen. Wenn Sie schließlich und endlich das ganze 
Wort herausbekommen haben, teilt Ihnen die Zeitung 
„Gallows News“ mit, daß Sie dem Tode entronnen 
sind. Im andern Fall erwartet Sie nur noch die Nach¬ 
richt von Ihrem schrecklichen Ende. Also geben Sie 
acht, Sie hängen schneller, als Sie glauben! 

Daniel Hanelt 
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10 rem gallows : 


============== C 16 <jg> 

20 rem (p) commodore weit team <ho> 

40 rem (c) by daniel hanelt <ep> 

50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 - <nl> 

80 rem c16/116/plus4 <ki> 

90 rem =========================== <jg> 

100 poke55,0:poke56,56:gosub2220:u 


e=1:r=20 <id> 

110 gosub 1290:gosub1310:gosub1320 <gj> 

120 color 4,7,2 <ac> 

130 gosub 1660 <ch> 

140 printleft$(qd$,7)b4$b4$wh$" ih 
r name ";:inputna$ <ip> 

150 gosub 1660 <kk> 

160 printc4$c4$b4$b3$ye$b2$"hollo 


"wh$na$ <kb> 

170 printbr$c4$b$" waehle bitte !! 

!" <la> 


180 printc4$c4$b2$cy$rn$"1."rf$wh$ 
profi i H lg$" (verbesserungsfaehi 
g3" <jn> 

190 printc4$b2$pu$rn$"2."rf$wh$" p 
rofi ii"bl$" (schon ganz gut) <bf> 

200 printc4$b2$re$rn$"3."rf$wh$" p 
rofi iii M lb$b2$"(mensch super !!!) 

" <ge> 

210 getkey sch :ifsch <1orsch >3th 


en150 <op> 

220 gosub 1660:printwh$ <no> 

230 printc4$c4$b3$b3$"kennen sie d 
ie" <mi> 

240 printc4$c4$b$b2$"spielregeln s 
chon (j/n)";:getkeygf$ <if> 

250 ifsch=1thenhj=10:eiseifsch=2th 
enhj=5:elseifsch=3thenhj=3 <ka> 

260 ifgf$="j"then 580 <mp> 

270 gosub1660:gosub1330:printc4$c4 
$" "wh$"gallows ist eine Version d 
es bekannten" <af> 

280 printc4$" Spieles 'galgenraten 

sie muessen" <kj> 

290 printc4$" ein vom Computer erd 
achtes wort durch" <ac> 

300 printc4$" eingeben von einzeln 
en buchstaben" <in> 

310 printc4$" erraten, kommt ein b 
uchstabe im wort" <gm> 

320 printc4$" nicht vor, so zeichn 
et der Computer" <bj> 

330 printc4$" eins von"hj "teilen 
vom galgen." <go> 

340 printc4$c4$b5$b4$"ABCD"rn$" ta 
ste "rf$"DCBE" <bo> 

350 getr$:ifr$=""then350 <ld> 


360 printcl$:gosub 1660:printwh$c4 


$c4$" haben sie also"hj "fehlversu 
che gemacht" <on> 

370 printc4$" teilt ihnen der comp 
uter mit, dass" <ji> 

380 printc4$" sie verloren haben, 
es kommt fuer" <da> 

390 printc4$" sie nun darauf an, m 
it weniger als"hj <ib> 

400 printc4$” fehlversuchen, falls 
sie nicht am " <hd> 

410 printc4$" galgen landen wollen 
, das wort zu " <ic> 

420 printc4$" erraten. <fp> 

430 printc4$c4$b5$b4$"ABCD"rn$" ta 
ste "rf$"DCBE" <do> 

440 getr$:ifr$=""then440:eisegoto 
580 <dl> 

450 rem *** music *** <md> 

460 restore530:vol 8 <pn> 

470 for te=1to18 <kd> 

480 read w,e:poke 239,0 <cm> 

490 ifw=0then510:eise sound 1,w,e: 
sound 2,w+1,e <ln> 

500 next <gn> 

510 return <in> 

520 rem *** data *** <mi> 

530 data 854,10,1016,20,854,20,770 
,20 <pm> 

540 data 810,20,1016,20,810,20,770 
,20 <pb> 

550 data 854,20,810,20,770,20,1016 
,20 <fk> 

560 data 854,10,1016,7,854,50,881, 

10 <mb> 

570 data 854,10,0,1 <hl> 

580 scnclr:gosub1330:gosub 1660:pr 
int:gosub 1750:gosub 1910 <hj> 

S90 char 1,0,23,”": print" wortX " 

; <dm> 

600 restorel160:qe=int(rnd( 1)*100) 

+1 <pe> 

610 for t=0toqe:readf$:next:printc 
4$; <nc> 

620 forp=1to len(f$) <bl> 

630 print"Y"c3$; <pe> 

640 next:gosub 460 <ge> 

650 char 1,21,23,"(c) daniel hanel 
t"+wh$ <gm> 

660 s=0:getj$:ifj$=""then660 <pd> 

670 h(ue)=asc(J$)-64:fortr=0to10:i 
fue=trthen680:elseifh(tr)=h(ue)the 
n1950:elsenext <nc> 

680 if j$=mid$(f$,1,1)thens=0.5 <cd> 

690 if j$=mid$(f$,2,1)thens=2 <bg> 

700 if j$=mid$(f$,3,1)thens=4 <co> 

710 if j$=mid$(f$,4,1)thens=6 <hn> 

720 if j$=mid$(f$,5,1)thens=8 <pj> 

730 if j$=mid$(f$,6,1)thens=10 <cn> 
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-ä if j$=mid$(f$,7,1)thens=12 <ce> 

zi if j$=mid$(f$,8,1)thens=14 <ln> 

£0 if j$=mid$( f$,9,1)thens=16 <lj> 

'0 if j$=mid$(f$,10, 10 )thens=18 <hd> 

'30 if s=0then1950 <fj> 

50 pake 3999+s , h( ub) <mo> 

£00 ue=ue +1 <pa> 

£*0 foryp=700to715:sound 1,yp,1:ne 
ft <ef> 

520 q=q+1:if p-1=qthenB40 <ec> 

:30 goto 660 <mn> 

£40 vol 8 :for yu=1toS00:next:fort=2 
?0to1000step+15:sound1,t,5:sound 2 
,t+10,5:next <ek> 

£50 foryq=1to2000:next: scnclr:gosu 
b 1660:color 4,1:poke 239,0 <fg> 

360 printb$b5$"D"fl$"n e w s"fo$"D 

<nk> 

870 printb$bS$"DDDDDDDDD" <ig> 

880 printc4$wh$b2$"und wieder entr 
ann ein mensch namens " <bl> 

890 jl=len(na$):jl=20-jl/2:char 1, 
jl, 10 ,na$:char 1 , 0 , 11 ,"" <cb> 

900 printc4$b$" dem schrecklichen" <mh> 
910 printc4$b$b5$"galgentod" <dn> 

920 printc4$b$"da er auf das wortX 
b 2 $ <cc> 

930 printc4$b$bB$b2$rn$fl$f$rf$b3$ <kl> 
940 printc4$b$b4$"gekommen ist" <hk> 

950 printc4$;:d$="-":gosub 2200 <kb> 

960 printb5$"neues spiel" <la> 

970 printb$b4$"neuer spass (j/n)"l 
eft$(qu$,4); < gc > 

980 getkey a$:ifa$<>"j"thenscnclr: 
end:elserun <im> 


990 forrok=1to500:for t=800to1step 
-15:sound 1,t,5:sound2,t+10,5:next <om> 
1000 forymn= 1 to 2000 :next:graphic 0 : 
scnclr:gosub 1660:color 4,1:poke 2 


39,0 <pl> 

1010 printb$b5$"D"fl$"n e w s"fo$" 

D <hi> 

1020 printb$b5$"DDDDDDDDD" <bd> 

1030 printc4$wh$b2$"und wieder erl 
itt ein mensch namens " <mo> 

1040 jl=len(na$):jl=20-jl/2:char 1 
,jl, 10 ,na$:char 1 , 0 , 11 ,"" <ch> 

1050 printc4$b$" den schrecklichen 

<ac> 

1060 printc4$b$b5$"galgentod" <ij> 

1070 printc4$b4$b4$"da er nicht au 
f das wortX"b2$ <dm> 

1080 printc4$b$b5$b2$rn$fl$f$rf$b3 
$ <hd> 

1090 printc4$b$b4$"gekommen ist" <jf> 
1100 printc4$;:d$=”-":gosub2200 <ih> 

1110 printb5$"neues spiel" <ci> 

1120 printb$b4$"neues glueck (j/n) 


"left$(qu$,4); < og> 

1130 getkey a$:ifa$<>"j"thenscnclr 
:end:elserun <pe> 

1140 scnclr <ni> 

1150 end <if> 

1160 data garten,ziel,oma,opa,mens 

<be> 

1170 data rasen,buch,holz,spiel,kl 
°»geld <id> 

1180 data hemd,hose,bäum <hh> 

1190 data gras,stange,acker,auto,s 
tuhl,tisch,lampe,hund <if> 

1200 data tiger,vogel,maus,haus,kr 
ebs,kind,herz <dd> 

1210 data radio,tasche,katze,tiger 
,bock,bogen,pi1z,post,dose,bild <in> 
1220 datagewalt,abend,milch,bahn,b 
ank,fisch,kabel,firma,korb <jf> 

1230 data blumen,buch,hase,pauke <hl> 
1240 data pokal,symbol,krug,water, 
onkel <kd> 

1250 data lied,kuh,schau,faust,tag 
,nacht,karton,frau,set,Video <jh> 

1260 data osten,mai,musik,tage,pos 
t,fach,bart,kaiser,bord,woche,stun 
de,mauer <bn> 

1270 data preis,film,wald,pilz,blu 
me,tiger,herd,gepard,ast,motiv,fic 
hte,berg,knospe <ko> 

1280 data kino,wand,band,loch,knop 
f,lupe,schnür,flug,april,Juni,freu 
nd <md> 

1290 poke 65298,129 and251 <ee> 

1300 poke 65299,56and3or56:return <mf> 

1310 restore1340:fory=0to17:reada: 
pake 819+y, a :next:sys 819:return <ck> 

1320 restöre 1390:forpo=14856to1506 
3:reada:pokepo,a:next:return <cl> 

1330 restöre 1350:forkl = 14784to1484 
8:readu:poke kl,u:next:return <pe> 


1340 data 162,0,189,0,208,157,0,56, 
189,0,209,157,0,57,202,208,241,96 <mj> 

1350 data 1,3,3,7,15,15,7,15,128,19 
2,192,224,240,240,224,240,31,7,15, 
31,63,7,15,31 <dd> 

1360 data248,224,240,248,252,224,2 
40,248 <db> 

1370 data63,127,7,15,31,63,127,255 
,252,254,224,240,248,252,254,255 < ki> 

1380 data3,3,3,3,3,3,3,3,192,192,1 
92,192,192,192,192,192,192 <ap> 

1390 data0,0,0,7,63,255,255,255 <fl> 

1400 data0,0,2S5,255,255,2SS,255,2 
55 <an> 

1410 data0,255,255,255,255,255,255 

i^SS <lm> 

1420 data255,255,255,255,255,255,2 
55,255 <H> 
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1430 data0,0,0,224,252,255,255,255 <ng> 

1440 data56,28,56,28,56,28,56,28 <fd> 

1450 data60,66,165,129,153,102,66, 

60 <nd> 

1460 data60,66,153,129,153,129,153 
,255 <dh> 

1470 data102, 102,102*, 102,102,231,2 
31,0 <fe> 

1400 data7,15,30,60,120,240,224,19 
2 <cp> 

1490 data128,0,0,0,0,0,0,0 <ca> 

1500 data0,0,0,0,0,0,1,3 <ke> 

1510 data224,240,120,60,30,15,7,3 <aa> 

1520 data0,0,0,0,0,0,120,192 <gc> 

1530 data0,0,7,31,63,127,123,127 <fe> 

1540 data0,0,240,248,124,222,110,2 
54 <od> 

1550 dota219,255,255,118,127,125,6 
3,15 <fm> 

1560 data2SS,183,255,254,238,254,1 
88,240 <hl> 

1570 data7,7,7,7,7,7,7,7 <ji> 

1580 data224,224,224,224,224,224,2 
24,224 <im> 

1590 data7,7,7,7,15,15,31,255 <dl> 

1600 data224,224,224,224,240,240,2 
48,255 <nm> 

1610 data 255,255,0,0,0,0,0,0 <jb> 

1620 data0,24,24,0,0,24,24,0 <cd> 

1630 data 255,255,0,0,0,0,255,255 <pi> 

1640 data 0,0,0,0,0,0,255,255 <nn> 

1650 return <ho> 

1660 color0,1:scnclr:printbl$"DODD 
"rn$"BBB"rf$; <li> 

1670 d$="D":g=25:gosub2210:printrn 
$"BBB"rf$"DDDDD" <hg> 


1680 printbl$"DDDD"rn$"D"rf$"D"rn$ 
"F”rf$"DDDD"rn$"GGGGGGGGGGGGGGGGG" 


1690 printrf$"DDDD"rn$"F"rf$"D"rn$ 
"D"rf$"DDDDD" <pf> 

1700 print"DDDD"rn$"D"rf$"DDDDDD"r 
n$"G"rf$"-g a 1 1 o w s-"rn$"G"; <fg> 
1710 printrf$"DODDDD"rn$"D"rf$"DDD 
DD" <md> 

1720 print"DD"rn$"ABDBE"rf$”DDDD"r 
n$"GGGGGGGGGGGGGGGGG"rf$"DDDD"rn$" 
ABDBE"rf$"DDD" <cl> 

1730 d$="D":gosub2200 <da> 

1740 return <dd> 

1750 printgr$c2$b$b4$b4$"89"b3$b3$ 
"89"b5$"89"b2$"89 0P"b5$; <ha> 

1760 print"OP"b2$"0P89 0P:;890P"b2 
$":;OP 89:;"b2$":;" <pl> 

1770 print"QR"b3$"89QR"b2$"QR:; QR 
<=:;QR89<=QR :;<=0P<=" <hc> 

1780 printbr$"ST"gr$" OP:;"br$"ST" 
gr$"89"br$"ST"gr$"<= "br$"ST>?"gr$ 


"<="br$"ST"gr$":;"; <gn> 

1790 printbr$">?ST "gr$"<="br$">?" 
gr$"QR"br$">?"gr$ <oh> 

1800 print"89 QR<=OP:;89"br$">? UV 
"gr$"OP"br$">?UV"gr$"<= "br$" UV > 
?"b2$"ST"gr$"0P" < C o> 

1810 print":; "br$"ST>?"gr$"QR<=:; 

0P89 QR"b4$br$">?"gr$" OP 89 0P"br 
$"UV"gr$"QR" < 1 o> 

1820 print"<="br$" UV"gr$"OP"br$"S 
T>?"gr$"<=QR:; "; <ok> 

1830 printbr$"ST"b3$b3$gr$" QR :; 
QR"b2$br$"ST"gr$ <mg> 

1840 printbr$">?"gr$"89 "gr$"QR"br 
$"UV"b2$">?ST"gr$"<= "; <id> 

1850 printbr$"UV"b4$b3$"ST "gr$"<= 
"br$"ST"gr$"89"br$"UV"gr$ <ca> 

1860 printb2$gr$":; "br$"ST"b3$b3$ 
"UV>?"b$"UV >? UV"gr$":;" <lk> 

1870 print" "gr$" <= "br$"UV"gr$b$ 
b$b4$b4$"<=" <dd> 

1880 printbr$b2$">?"b$b$b$" >?" <bh> 
1890 print" <pi> 

1900 return <he> 

1910 colorl,2:char 1,0,22, "" :d$="*l 
":gosub2200 <kl> 


1920 char 1,19,23,"F":char 1,0,24, 

"" <pa> 

1930 print"ZZZZZZZZZZZZZZZZZZZFZZZ 
ZZZZZZZZZZZZZZZZ"c2$wh$:charl,39,2 


4,"":colorl,2: <ei> 

1940 poke 4071,90:return <bn> 

1950 ui=ui+1:for ta=15to0step-1:so 
undl,ta,1:next <pg> 

1960 ifhj =10then1990 <11> 

1970 ifhj =5thenonuigosub 2000,201 
0,2020,2030,2040 <gb> 

1980 ifhj =3thenonuigosub 2050,206 
0,2070 <lf> 

1990 onuigosub2080,2090,2100,2110, 
2120,2130,2140,2170,2180,2190 <ib> 

2000 gosub2080:goto660 <dk> 

2010 gosub 2090:gosub 2100:gosub 2 
.110:goto660 <cf> 

2020 gosub 2120:gosub 2130:goto 66 
0 <do> 

2030 gosub 2140:gosub 2150:gosub 2 
160:goto 660 <bf> 

2040 gosub 2170:gosub 2180:gosub 2 
190 <ap> 

2050 gosub 2080:gosub 2090:gosub 2 
100:gosub 2110:goto 660 <lf> 

2060 gosub 2120:gosub 2130:goto 66 
0 <po> 

2070 gosub 2140:gosub 2150:gosub 2 
160:gosub 2170:gosub 2180:gosub 21 
90 <lf> 

I 2080 charl,0,21,gr$+b$+b4$+"ABCDDD 
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”DDCBE":return <jp> 

1890 foryt=0toö :char 1,19,20-yt,b 
*$+"D":next:return <kj> 

2100 charl,20,19,"N":charl,20,20,b 
- $+"MN":return <gk> 

2110 charl,18,19,"L":charl,17,20,b 
-$+"LJ":return <bp> 

2120 charl,19,11,br$+"DDDDDDD":ret 
jrn <og> 

2130 charl,20,12,br$+"LJ":charl,20 
13,br$+"JK":return <bk> 

2140 colorl,2,4:charl,24,12," F <Kc> 

2150 colorl,2,4:charl,24,13," F <kc> 

2160 colorl,2,4:charl,24,14," F":r 
eturn <jp> 

2170 charl,24,15,lr$+" G":return <jf> 

2180 charl,24,16,re$+" H":return <ia> 

2190 charl,24,17,br$+ M I":goto 990 <oe> 


2200 forx=1to39:printd$;:next:prin 


td$:return <gb> 

2210 forx=1tog:printd$;:next:retur 
n <fo> 

2220 b$=chr$(32):b2$=b$+b$ <oc> 

2230 b3$=b2$+b$:b4$=b3$+b$ <hf> 

2240 b5$=b4$+b$:b$=b5$+b5$ <ia> 

2250 rem nachspann =============== <Ke> 


2260 rem * farbcodes/steuercodes * <go> 
2270 wh$=chr$( 005):c4$=chr$(017) <fd> 
2280 rn$=chr$(018):re$=chr$(028) <ne> 
2290 c3$=chr$( 029):gr$=chr$(030) <hn> 
2300 bl$=chr$(031):fl$=chr$(130) <dk> 
2310 fo$=chr$( 132):c2$=chr$( 145) <jl> 
2320 rf$=chr$(146):cl$=chr$(147) <af> 
2330 br$=chr$(149):lr$=chr$(150) <bj> 


2340 lg$=chr$C153):lb$=chr$(154) <gg> 
2350 pu$=chr$(156):ye$=chr$(158) <nb> 
2360 cy$=chr$(159) <na> 
2370 rem ********* Zeichenfolgen * <bm> 
2380 for q=1 to 40 <ma> 
2390 qd$=qd$+c4$:qu$=qu$+c2$ <jo> 
2400 next q <pj> 
2410 q=0:return <mc> 
2420 rem ========================= <pj> 

2430 rem 12277 bytes memory <pk> 
2440 rem 08344 bytes program <jj> 
2450 rem 00392 bytes variables <ma> 
2460 rem 00062 bytes arrays <mb> 
2470 rem 00507 bytes strings <jo> 
2480 rem 02048 bytes zeichensatz <lc> 
2490 rem 00924 bytes free (0) <bm> 
2500 rem ========================= <ko> 


AUF SCHATZSUCHE IM LABYRINTH 



Suchen Sie den Schatz, der in diesem 
3-D-Labyrinth verborgen ist. In der linken oberen 
Ecke wird die Entfernung angezeigt. Die Zeit läuft 
mit. Wer ist der Schnellste? 

Sie stehen in einem Labyrinth. Wohin Sie auch schau¬ 
en, überall nur Gänge und Wände. Doch halt, etwas 
gibt Ihnen Aufschluß darüber, wo Sie sich ungefähr 
befinden. In der oberen Ecke sehen Sie eine Zahl. 

Das ist die Entfernung zum verborgenen Schatz. Ihn 
zu finden, ist nur eine Frage der Zeit, denn keine 
Monster oder sonstige Feinde bedrohen Sie. Sie sind 
mutterseelenallein. 

Oft glauben Sie, gleich müßten Sie den Schatz er¬ 
reicht haben. Doch dies ist ein Trugschluß, denn ur¬ 
plötzlich ist der Weg zu Ende und eine undurchdring¬ 
liche Wand beliindert Ihr Fortkommen. Es gibt dann 
nur eines: wieder zurückzugehen und in einem der an¬ 
deren zahlreichen Gänge Ihr Glück zu versuchen. 
Haben Sie endlich den Schatz erreicht, wird Ihnen 
mitgeteilt, wie lange Sie dazu gebraucht haben. Am 
Anfang dürften Sie es schwer haben. Später, mit et¬ 
was Übung, wird es schneller gehen. Sie brauchen je¬ 
doch nicht zu glauben, daß Sie dann das Labyrinth 
schon auswendig kennen, denn jedesmal wird es neu 
aufgebaut. 

Nach erfolgreicher Schatzsuche dürfen Sie das Laby¬ 
rinth von oben betrachten, um einen Überblick zu 
bekommen. Sichtbar sind der Lageplan, Ihr Start¬ 
punkt, der Schatz und der zurückgelegte Weg. Wenn 
Sie wollen, dürfen Sie es jetzt von Neuem versuchen. □ 
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10 rem raeuber===‘=‘= : ============c 16 <hn> 

20 rem (p) commodore weit team <ho> 

40 rem (c) by ecKhard schulz <no> 

B0 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

80 rem c16/116/plus4 <ki> 

90 rem =========================== <jg> 

100 gosub2860 <gc> 

110 key8,"?":color0,1:color4,1:pri 
ntwh$ < PP > 

120 printchr$C142)chr$(8):gosub274 
0 <di> 

130 h=12:v=7:h1=h+1 :w=818: v1=1630 <pn> 
140 i-rndf-ti) <nj> 

150 dimxl(4),n2(4),yl(4),xr( 4) <fo> 

160 fori=0to4:readxl(i), n2(i),yl(i 
),xr(i):next <ji> 

170 data8,20,-4,31,8,12,1,27,12,6, 
5,24,15,2,8,22,17,0,10,21 <ji> 

180 cx-int(rndf1)*h)+1:cy-int(rnd( 
1)*v)+1 <ci> 

190 c=cx:r=cy:s=0 <mf> 

200 fori=0toC v+l)*h1:pokew+i,0:pok 
ev1+i,0:next <gh> 

210 printcl$c4$c4$"aufbau des laby 
rinthes" <hf> 


220 da = 0:n=0:av=v1+c+r*h1:aw=w+c+r 
*h1rpokeaw,1:s=s+1:ifs>=h*vthen480 <jo> 
230 printmid$(rf$,(sand1)+1,1)"V"; <om> 
240 ifc>landpeekf aw-1)-0thenda-da+ 


2:n=n+1 <hh> 

250 ifc<handpeekfaw+1)=0thenda=da+ 

1:n=n+1 <ei> 

260 ifr>1andpeek(aw-hl)=0thenda=da 
+8:n=n+l <pd> 

270 if(r<vandpeek(aw+h1)=0)thenda= 
da+4:n=n+1 <nj> 

280 n=int( rndf1)*n)+1 <mi> 

290 onda+1goto300,470,460,330,450, 

340,350,360,440,370,380,390,400,41 
0,420,430 <fm> 

300 s=s-1 <dm> 

310 c=c + 1:ifc>hthenc=1:r=r+1:ifr>v 
thenr-1 <bn> 

320 onpeekfw+c+r*h1)+1goto310,220 <mo> 
330 onngoto460,470 <ai> 

340 onngoto450,470 <ig> 

350 onngoto450,460 <im> 

360 onngoto450,460,470 <bf> 

370 onngoto440,470 <np> 

380 onngoto440,460 <po> 

390 onngoto440,460,470 <gk> 

400 onngoto440,450 <ip> 

410 onngoto440,450,470 <ej> 

420 onngoto440,450,460 <go> 

430 onngoto440,450,460,470 <mh> 


440 r-r-1;av~av-h1;pokeav,peekf avj 
or1:goto220 <fg> 

450 pokeav,peek(av)or1:r=r+1:av=av 
+h1:goto220 <fd> 

460 c=c-1:av=av-1:pokeav,peek(av}o 
r2:goto220 „ <ab> 

470 pokeav,peek(av)or2:c”c+1:av=av 
+1:goto220 <eg> 

480 i=rndf 1]>.5:j=rndf1]:k=rnd(1)> 

.5 <od> 

490 ifithenx^inttj^hj+l:y=v+(v-1)* 
k <oj> 

500 ifi~0theny=int( j*vj+1:x=h+(h-1 
)*K <mj> 

S10 if(cx-x)~2+fcy-y) *2<fh A 2+v~2)/ 
9then480 <ip> 

520 sx^xisy^y <ae> 

530 ti$="000000" <ei> 

540 ; < hg> 

550 printcl$ <be> 

S60 fori=wtow+(v+1)*h1:pokei,0:nex 
t <f j> 

570 d-^intf rndf 1) *4) <gn> 

580 t4=ti:pokefw+x+y*h1),1 <fl> 

590 iff"0thengosub950;printhe$;int 
(sqrf(x-cx)"2+(y-cy)"2)* 10+.5)/10 <ok> 
600 ifcx=xandcy=ythen2590 <pi> 

610 getq$; if q$*= HH goto610 <be> 

620 ifq$= H ?"thenk=ti:goto2620 <pa> 

630 jq=joy(2) <hi> 

640 ifq$=c4$orjq=5thend=d+2 <nm> 

650 ifq$=c1$orjq=7thend=d-1 <cf> 

660 ifq$=c3$orjq=3thend=d+1 <nk> 

670 ifd<0thend=d+4 <gc> 

680 ifd>3thend“d-4 <pn> 

690 ifq$=c2$orjq=1then700:else590 <eg> 
700 av“v1+x+y*h1;aw=w+x+y*h1 < gb> 

710 ondgoto740,760,780 <na> 

720 ify>1and(peek(av-hl)andl)theny 
=y-1:pokeaw-hl,1:goto590 <ek> 

730 goto790 <jb> 

740 ifx<hand[peek(av)and2)thenx=x+ 

1:pokeaw+1,1:goto590 <ga> 

750 goto790 <mo> 

760 ify<vand(peekfav)andl)theny=y+ 

1:pokeaw+hl,1:goto590 <li> 

770 goto790 <bl> 

780 ifx>1and(peekf av-1)and2)thenx = 
x-1:pokeaw-1,1:goto590 <jm> 

790 dn=23:gosub2710 <om> 

800 printtabf16)zz$ze$ze$ze$ze$lef 
t$(ql$,14)c4$rn$"kein durchgang"c2 
$:fori=1to1000:next <gk> 

810 printtabf16)c2$spcf14)left$( ql 
$,14)e4$spc(14)c2$:goto600 <an> 

820 printcl$ H H ; <ap> 

830 fori=1toh:printze$ze$ze$;:next 
:printc4$c4$ <om> 
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40 forj-1tov:printz9$c2$c1$z9$c2$ 
$z9$c4$c4$;:fori=1toh <ja> 

553 k-peekfv1+i+j*h1) <dd> 

:3 printmid$(ze$+ze$+zp$+b2$+z9$+ 

: = $ + ze$+ze$+b3$,1+3*k,3) ; <gi> 

3 ifk<2thenprintc2$c1$z9$c2$c1$z 
rSc4$c4$; <ip> 

550 printc2$c1$; <dk> 

530 ifpeek(w+i+j*h1)=1thenprintc1$ 

<oh> 

-20 ifi=sxandj=sythBnprintc1$+rn$+ 

"+rf$; <lb> 

5'0 ifi=cxandj=cythenprintc1$+z5$; <ae> 
520 ifi=xandj=ythenprintc1$;mid$( " 

*>v<",d+1,1); <oj> 

530 printc3$c4$; <bj> 

-40 next:printc4$c4$:next:return <in> 

550 s=0:printcl$ <ap> 

360 av=-v1+x+y*h1 <ca> 

370 ondgotol120,1260,1400 <al> 

380 ifsy=y-sandsx=xthengosub2520 <bb> 

590 ifcy-y-sandcx-xthengosub2440 <ec> 

'000 k“peek( av-fs + 1)*h1);ifk-0ork- 
2goto1070 <np> 

1010 ifpeekf av-s*h1)and2thengosub1 
550;goto1030 <gf> 

1020 gosub1670 <mj> 

'030 ifpeekfav-1-s*h1)and2thengosu 
b2020:goto1050 <oo> 

1040 gosub2140 <ei> 

1050 s = s+1:ifs>4goto1540 <fk> 

1060 goto980 <fc> 

1070 ifpeekfav-s*h1)and2thengosub1 
750:goto1090 <eo> 

1080 gosub2220 <dp> 

1090 ifpeekf av-1-s*h1)and2thengosu 
b1090:goto 1110 <kc> 

1100 gosub2320 <mf> 

1110 return <ec> 

1120 ifcy“yandcx=x+sthengosub2440 <ap> 
1130 ifsy=yandsx=x+sthengosub2520 <lh> 
1140 k=peek(av+s):ifk=0ork=1goto12 
10 <he> 

1 150 ifpeekf av + s) ='2thengosub 1670: g 
otc1170 <bi> 

1160 gosub1550 <fp> 

1170 ifpeekfav + s-hl)and 1thengosub2 
020:gotol190 < pn > 

1180 gosub2140 <nl> 

1190 s~s+1:ifs>4goto1540 <lb> 

1200 gotol120 <aj> 

1210 ifpeekfav+s)=0thengosub2220:g 
□to1230 <fb> 

1220 gosub1750 <no> 

1230 ifpeekfav+s-hl)andIthengosubl 
590:goto1250 <ln> 

1240 gosub2320 <fh> 

1250 return <fl> 


1260 ifcy-y+5andcx-xthengosub2440 <ah> 
1270 ifsy-y+sandsx-xthengosub2520 <mn> 
1280 k=peekfav+s*h1):ifk=0ork=2the 
ngoto!350 '*,} <ie> 

1290 ifpeBkf av-1+s*h1)and2thengosu 
b1550:goto1310 <nl> 

1300 gosub1670 <pm> 

1310 ifpeekf av+s*hl)=1thengosub214 
0:goto1330 <oc> 

1320 gosub2020 <fn> 

1330 s-s+1:ifs>4goto!540 <eh> 

1340 goto1260 <jp> 

1350 ifpeekf av-1+s*hl)and2thengosu 
b1750:goto1370 <hl> 

1360 gosub2220 <ga> 

1370 ifpeekf av+s*hl)-0thengosub232 
0:goto1390 <hi> 

1380 gosub1890 <po> 

1390 return <he> 

1400 ifcx=x-sandcy=ythengosub2440 <hb> 

1410 if9x=x-sandsy=ythengosub2S20 <ck> 

1420 k-peek(av-f s+1)):ifk=0ork=1th 
engoto1490 <jo> 

1430 ifpeekf av-s-hl)and 1thengosub1 
550:goto1450 <eb> 

1440 gosub1670 <im> 

1450 ifpeekf av-s)andlthengosub2020 
:goto1470 <md> 

1460 gosub2140 <oo> 

1470 s=s+1:ifs>4then1540 <ba> 

1400 goto1400 <ci> 

1490 ifpeekf av-s-hl)andIthengosubl 
7S0:goto1S10 <pa> 

1500 gosub2220 <pd> 

1510 ifpeekf av-s)ond1thengosub1890 
:goto1530 <af> 

1520 gosub2320 <ha> 

1530 return <in> 

1540 dn=11:gosub2710:printtabf19)" 
HN"c4$c1$c1$"NM”he$:return <mm> 

1550 dn=ylfs):gosub2710 <cn> 

1560 ifs=0thenprinttabfxrfs))ze$ <kl> 

1570 ifs>0ands<4thenfori-1to4-s:pr 
inttabfxrfs)+5-s)zj$:next <ol> 

1580 ifs>0thenprinttab(xrf s))mid$f 
ze$+ze$+ze$+ze$+zj$,s) <kc> 

1590 ifs=4thenprinttabf xrf s))zj$+z 
j$+c4$+c1$+c1$+zj$+zj$ <fh> 

1600 q$="":ifs>0thenq$=mid$f c3$+c3 
$+c3$+zj$,s) <mo> 

1610 ifs<4thenfori=0ton2(s)+1:prin 
ttabfxrfs))zj$q$:next <pk> 

1620 ifs>0thenprinttabf xrf s))mid$( 
zm$+zm$+zm$+zm$+zj$,s) <ha> 

1630 ifs>0ands<4thenfori=1to4-s:pr 
inttabfxrfs)+5-s)zj$:next <fm> 

1640 ifs=0thenprinttab(xrfs))zm$ <cg> 
1650 printhe$ <bl> 
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1660 return <jd> 

1670 dn=yl( s):gosub2710 <el> 

1680 ifs=0thenprinttab(xr(s))"N":g 
oto1700 <be> 

1690 fori=1toS-s:printtab(xr(s)+S- 
s-i)"N":next <ek> 

1700 dn=n2(s)+2:goaub2720 <ho> 

1710 ifs=0thenprinttab(xr(s))"M":g 
oto1730 <kc> 

1720 fori=0to4-s:printtab(xr(s)+i) 

"M H :next <jh> 

1730 printhe$ <ca> 

1740 return <dd> 

1750 j=3-s:ifs=0thenj=0 <de> 

1760 printhe$; <di> 

1770 ifs>0goto1810 <en> 

1790 printtab(20);:printc4$;:fori- 
1to18:printzm$;:next:printzm$ <lb> 

1790 dn-n2(0);gosub2720 <dd> 

1800 printtab(20);:fori=lto19:prin 
tze$;:next:goto1870 <fm> 

1810 dn=yl(s):gosub2720 <on> 

1820 fori=1to5-s:printtab(j+xr(6)+ 
2)zj$:next <hp> 

1830 printtab(20);:fori=19toj++xr( 
s);printzm$;;next:printzj$ <gk> 

1840 ifs<4thenfori=1ton2(s):printt 
ab(j+xr(s)+2)zj$:next <bo> 

1850 printtab[20);:fori-19toj+xr(s 
) :printze$;:next:printzj$ <gf> 

1860 fori“1to5-s:printtab(j+xr(s)+ 
2)zj$:next <fg> 

1870 printhe$ <oj> 

1800 return <em> 

1890 printhe$; <ij> 

1900 ifs>0goto1940 <fk> 

1910 printc4$;:fori”1 toi1+xl( 0):pr 
intzm$;:next:printzm$ <ml> 

1920 dn=n2(0):gosub2720 <nh> 

1930 fori=1to12+xl(0):printze$;:ne 
xt:goto 1870 <of> 

1940 dn=yl(s):gosub2720 <im> 

1950 fori=lto5-s:printtab( xl( s))z9 
$:next <ba> 

1960 printtab(xl(3))printz9$;:fo 
ri“xl(s)to17;printzm$;:next:printz 

m$ <lf> 

1970 ifs<4thenfori=1ton2(s):printt 

ab(xl(s))z9$:next <ca> 

1900 printtab(xl(s));:printz9$;:fo 

ri=xl(s)to17:printze$;:next:printz 

e$ '' <li> 

1990 fori=1to5-s:printtab(xl[s))z9 

$:next <nb> 

2000 printhe$ <bb> 

2010 return <fb> 

2020 dn=yl(s):gosub2710 

2030 ifs=0thenprinttob(xl(s))ze$ <lf> 


2040 ifs>0and5<4thenfori-1to4-s;pr 
inttab(xl(s))z9$:next <kd> 

2050 ifs>0thenprinttab(xl(s))left$ 

Cz9$+ze$+ze$+ze$+ze$,6-s) <ld> 

2060 if s*=4thenprinttab( xl( s) ) z9$+z 
9$+c1$+c1$+c4$+z9$+z9$ <PP> 

2070 q$=” H :ifs>0thenq$ - mid$(c3$+c3 
$+c3$+z9$,s) <bf> 

2080 ifs<4thenfori=0ton2(s)+1:prin 
ttab(xl(s))z9$q$:next <fl> 

2090 ifs>0thenprinttab(xl(s))left$ 

(z9$+zm$+zm$+zm$+zm$,6-s) <pk> 

2100 ifs>0ands<4thenfori-1to4-s:pr 
inttabfxl(s))z9$:next <mg> 

2110 ifs=0thenprinttab(xl( s))zm$ <be> 
2120 printhe$ 

2130 return <ec> 

2140 dn=yl( s) :gosub2710 <oj> 

2150 if5-0thenprinttob(xl( s))"M H ;g 
oto2170 <ak> 

2160 fori=1to5-s:printtab(xl(s)+i) 

"M":next <am> 

2170 dn-n2(s)+2:gosub2720 <lh> 

2180 ifs=0thenprinttab( xl(s)) M N":g 
oto2200 <mn> 

2190 fori=0to4-s:printtab(xl( s)+5- 
s-i)"N":next <je> 

2200 printhe$ <ke> 

2210 return <od> 

2220 gosub1670 <gg> 

2230 dn-yl(s)+5-s:gosub2710 <dm> 

2240 printtab( 20) ; <ff> 

2250 ifs<4thenfori=1toxr( s)-21:pri 
ntzm$;:next <ma> 

2260 print"P"c1$c4$; <on> 

2270 ifs<4thenfori=1ton2( s):printz 
9$c4$c1$;:next <hj> 

2280 printzp$c1$c1$; <fc> 

2290 ifs<4thenfori=1toxr(s)-20-1:p 
rintze$c1$c1$;:next <an> 

2300 printhe$ <nm> 

2310 return <km> 

2320 ifs-0thenj“5:goto2340 <kp> 

• 2330 j=0 <nh> 

2340 gosub2140 < gf > 

2350 dn=yl( s)+5-s:gosub2710 <nl> 

2360 printtabf19); <jf> 

2370 ifs<4thenfori=1to18-xlC s)-5+s 
+ j :printzm$c1$c1$;:next <pm> 

2380 print"0"c1$c4$; < ji > 

2390 ifs<4thenfori=1ton2( s)rprintz 
j$c4$c1$;:next <cp> 

2400 print"L"; <hg> 

2410 ifs<4thenfori=lto18-xl(s)-5+s 
+j:printze$;:next <ca> 

2420 printhe$ <gk> 

2430 return <jn> 

2440 ifs=0ors=4thenreturn <pc> 
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Ü50 dn=18:gosub2710 <pb> 

-50 ifs=3thenprinttab(20)c2$+c2$+ 
z2%+”.” <ec> 

-170 ifs=2thenprinttab( 19)rn$+c2$+ 
;ES+rf$+z8$+c1$+c1$+c4$+zS$+"N"+c2 
S*zj$ <ln> 

-E0 ifs<>1thenreturn <fK> 

ir0 printtab(18)c4$ M "ze$ze$ze$le 
- :$Cql$,4)e4$"N"b2$"N"; <dm> 

r?0 printzj$left$(ql$,5)c4$z5$z5$ 
zzV "zj$left$(ql$,5)c4$z5$z5$z5$" 

<gd> * 

2510 return <dn> 

“520 ifs“0ors-4thenreturn <dl> 

2S30 dn=20:gosub2710 <pb> 

2540 ifs“3thenprinttab(19)left$(qu 
S , 5) +rn$+z1$+z1$+c2$+c1$+c1$+rf$+z 
*J+z1$ <eK> 

1550 ifs-2thBnprinttnb(16)c2$+c2$+ 
c2$+rn$+z8$b3$b3$yq$ <lm> 

2560 ifs=1thenprinttab(13)rn$+z8$b 
Sb2$yq$ <ig> 

2570 ifs-1thenprinttabf12)rn$+z0$b 
$b4$yq$ <mh> 

2580 return <mk> 

2590 printhe$b$"deine zeit: "left$ 

(ti$,2) H :"mid$C ti$,3,2)"'"right$(t 
i$,2)b5$b4$ <ek> 

2600 k-ti:fori-1to25:poke2035, 23; p 
oke2036,15:sys65520:print"gefunden 
" :forj=1to50:nextj <kb> 

2610 poke2035,23:poke2036, 15:sys65 
520:printb$:forj=1to50:nextj,i <el> 

2620 gosub820 <dm> 

2630 printtabf10)c2$"noch ein spie 
1"; <ml> 

2640 sw“1:tm-0 <da> 

2650 gett$:ift$o""then2680 <oa> 

2660 ifti>tmthenprintmid$("? ",sw, 

1) cl$; : tm= , ti+15: sw“3-sw <oo> 

2670 goto2650 <jc> 

2680 ift$="j"thenprint" ja.":goto1 
90 <el> 

2690 ift$="n"thenprint" nein"+c4$: 
end <gi> 

2700 goto2650 < go > 

2710 printhe$; <ie> 

2720 ifdn>0thenforz=1todn:printc4$ 

;:next <pk> 

2730 return <ph> 

2740 printcl$c4$spc(13)"schatzraeu 
ber" <dl> 

2750 printc4$spc(7)"(c) 1987 by ec 
khard schulz" <cc> 

2760 printc4$c4$c4$" finde den sch 
atz der in dem lnbyrinth <nl> 

2770 printc4$" verborgen ist. <ml> 

2780 printc4$" Cursor up"b4$ H - 1 s 


chritt vorwaerts" <em> 

2790 print" Cursor left"b2$"- dreh 
ung nach links" <ob> 

2800 print" Cursor right = drehung 
nach rechts <hf> 

2810 print" Cursor down"b2$"= dreh 
ung um 180 grad" <hb> 

2820 print" help"spc(9)"= hilfe" <je> 
2830 printc4$" analog dazu steueru 
ng mit dem Joystick"b2$c4$"in port 
ü." <nf> 

2840 printc4$c4$spc(7)"druecke 'ta 
ste' zum start" <ji> 

2850 getkeya$:return <kc> 

2860 b$=chr$[32):b2$=b$+b$ <ja> 

2870 b3$-b2$+b$;b4$-b3$+b$ <kf> 

2880 b5$“b4$+b$:b$-b5$+b5$ <io> 

2890 rem nachspann =============== <kh> 

2900 rem * forbcodes/steuercodes * <ad> 

2910 wh$=chr$(005):c4$=chr$( 017) <gd> 

2920 rn$=chr$(018):he$=chr$(019) <fm> 

2930 c3$-chr$(029):c2$-chr$( 145) <mo> 

2940 rf$-chr$(146):cl$-chr$(147) <he> 

2950 c1$=chr$C1S7) <id> 

2960 rem *** zeichensatz/grophik * <gb> 

2970 z1$«chr$(162):z5$=chr$(166) <km> 

2980 z8$=chr$(169):z9$=chr$[170) <mm> 

2990 ze$«chr$(175):zj$=chr$(100) <fb> 

3000 zm$-chr$(103):zp$-chr$(106) <me> 

3010 yq$=chr$(223) <do> 

3020 rem ********* Zeichenfolgen * <ca> 

3030 forq“1to10:zz$=*zz$+ze$:next <kn> 

3040 for q=1 to 40 <pp> 

3050 qu$=qu$+c2$:ql$=ql$+c1$ <ib> 

3060 next q <fe> 

3070 return <ka> 

3080 rem-—-----— <op> 

3090 rem 12277 bytes memory <ae> 

3100 rem 07955 bytes program <pe> 

3110 rem 00399 bytes variables <dj> 

3120 rem 00120 bytes arrays <if> 

3130 rem 00505 bytes strings <ih> 

3140 rem 03290 bytes free (0) <eh> 

3150 rem =«=====■==========■========= <lh> 
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■ LISTINGS 


M otor-Race 

AUCH GERINGER PROGRAMMIERAUFWAND SCHAFFT SPANNENDE SPIELE 


Ein Parcours und eine kleine Steuerroutine 
genügen, um ein Objekt über die Piste sausen zu 
lassen. Eine DO...LOOP-Schleife bringt Tempo¬ 
gewinn. INSTR ersetzt viele IF-Abfragen. 

Es geht darum, möglichst viele Runden in möglichst 
kurzer Zeit zu schaffen. Die Steuerung des Fahrzeugs 
geschieht über Tastendruck, wie es im Programm ange¬ 
geben ist. Vier Fahrzeuge stehen Ihnen zur Verfügung, 
damit ein Unfall Sie nicht gleich aus dem Rennen 
wirft. Die Fahrgeschwindigkeit ist wählbar: Eine klei¬ 
nere Zahl bedeutet eine höhere Geschwindigkeit. 
Unsere Redaktion hat die ursprüngliche Programmie¬ 
rung etwas abgewandelt, da die Tastensteuerung un¬ 
günstig plaziert war. Jetzt können Sie die Finger in 
Bereitschaftsstellung über den Steuertasten halten. 
Steuerung: 
z = oben 
x = unten 
, = links 
. = rechts 

Um Ilmen eine einfache Umbelegung zu gestatten, ha¬ 
ben wir diese Werte in der DATA-Zeile Nummer 110 
abgelegt, wo Sie sie Ihren Bedürfnissen gemäß abän¬ 
dern können. 

Viele Leerzeichen hintereinander machen das Abtip¬ 
pen zum Ratespiel. Die SPC-Funktion schafft Abhilfe. 
Denselben Zweck wie acht IF-Abfragen erreichten 
auch eine einzige IF-Abfrage und eine INSTR-Anwei- 
sung, verbunden mit einer indizierten Variablen, in 
den Zeilen 1270 und 1280. Die SIGN-Funktion ver- 
halft zur richtigen Fahrzeug-Darstellung auch bei 
noch nicht gestartetem Fahrzeug. DO in Zeile 1240 
und LOOP in Zeile 1280 brachten erheblichen Tempo¬ 
gewinn gegenüber einem ursprünglichen GOTO. 

Da eine DO-Schleife nicht einfach mit einem GOTO 
verlassen werden darf, schlossen wir diese in den Zei¬ 
len 1300 und 1420 durch einen Trick richtig ab. 

LOOP UNTIL 1 = 1 hat keinen Einfluß auf den Pro¬ 
grammablauf. Es findet also kein Sprung statt. Nötig 
ist diese Anweisung allerdings, damit die durch die 
DO-Anweisung im BASIC-Pseudo-Stack abgelegten 
Werte wieder abgehoben werden. Es soll ja nicht zu 
einem Programmabbruch wegen Stack-Überlauf kom¬ 
men. 

Genug der Erläuterungen, das Spiel kann beginnen. □ 


10 rem motor-race========== 1 === It c 16 <pp> 

20 rem (p) commodore weit team <ho> 

30 rem =========================== <ng> 

40 rem (c) by michael poser <bp> 

50 rem <pd> 

60 rem <ah> 

70 rem basic v3.5 <nl> 

B0 rem c16/116,plus4 <ea> 

90 rem =========================== <jg> 


100 goto360 <pd> 

110 data z,x M ,-40,40,1,-1 <ed> 

120 fori=1to4:readx$:in$=in$+x$:ne 
xt <jp> 

130 fori=1to4:readf( i):next:goto14 
40 <bk> 

140 printcl$spc(9)"PSV michael"spc 
(2)"PSV" <on> 

150 printspc( 9)"QTW poser"spcf4)"Q 
TW" <le> 

160 printspct9)"RUX presents RUX" <mp> 

170 printspet5)"Z"yo$yq$spc(18)"Z" 
yo$yq$ <gg> 

180 printspct 5)ym$zz$s2$spc(2)"**m 
otor-race**"spct2)ym$zz$s2$ <fn> 

190 printspct5)yn$spc(4)"- 

-"spc(2)yn$spct2) <da> 

200 print <ck> 

210 printspc(2)"versuchen sie moeg 
liehst viele" <af> 

220 printspct2)"runden zu fahren a 
ber machen sie" <ki> 

230 printspct2]"keine unfaelle den 
n sie haben" <id> 

240 printspc(2)"nur vier wagen zur 
verfuegung" <bc> 

250 printspc(2)"sie lenken ihren w 
agen mit <ak> 

260 print <kd> 

270 printspct 7)left$tin$,1)spet 5)" 

= oben" <bb> 

2B0 printspct 7)mid$(in$,2,1)spc(5) 

"= links" <km> 

290 printspct 7)mid$(in$,3,1)spet 5) 

"= rechts" <pb> 

300 printspct 7)right$tin$,1)spet 5) 

"= unten " <jo> 

310 print <ah> 

320 printspct13)rn$"taste"rf$ <ke> 

330 r$="" <nm> 

340 get r$:if r$=""then 340 <ca> 

350 goto 810 <kn> 

360 : <am> 

370 vol 4 <lh> 

380 color0,2:color4,2:vol8:color1, 

6,2 <kl> 

390 v=65280 <pf> 

400 pokev+18,peek(v+18)and251 <bm> 

410 pokBV+19,peek(v+19)and3or48 <pb> 

420 pokB740,56;clr;gosub110 <fk> 


430 fort=832to849:reada:poket,a:ne 
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MOTOR — RACE AUTORENNEN 


::sys832 


<ln> 

ai 

f ort = 

12800to13071:reada:poket, 


5:next 


<db> 

1=8 

data 162,0,189,0,208,157,0,48,1 


=5,0,209, 

157,0,49,202,208,241,96 

< gl > 

i-£0 

data 

0,48,96,255,255,96,48,0 

<oi> 

170 

data 

90,90,24,102,126,24,90,9 


e 



<oro> 

130 

data 

90,90,24,126,102,24,90,9 


e 



<fp> 

150 

data 

0,219,24,247,247,24,219, 


e 



<kh> 

500 

data 

0,219,24,239,239,24,219, 


e 



<hc> 

510 

data 

24,24,24,24,24,24,24,24 

<fm> 

520 

data 

0,0,0,255,255,0,0,0 

<nl> 

530 

data 

0,0,0,248,248,24,24,24 

<go> 

540 

data 

0,0,0,31,31,24,24,24 

<ca> 

550 

data 

24,24,24,31,31,0,0,0 

<kd> 

560 

data 

24,24,24,248,248,0,0,0 

<op> 

570 

data 

129,66,0,24,24,0,66,129 

<an> 

580 

data 

129,66,0, 0, 0,0,66,129 

cag> 

590 

data 

129, 0,0, 0, 0,0, 0,129 

< jb> 

500 

data 

24,24,24,255,255,0,0,0 

<lp> 

610 

data 

24,24,24,248,248,24,24,2 


4 



<jd> 

620 

data 

3,4,8,8,8,40,113,81 

<hm> 

630 

data 

209,209,209,208,208,80,8 


0,113 


<pj> 

640 

data 

50,16,16,8,12,4,3,0 

<hm> 

650 

data 

255,0,0,0,3,212,24,27 

<lp> 

660 

data 

123,127,240,34,34,34,188 





<dn> 

670 

data 

126,126,124,24,0,0,255,2 
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<kc> 

680 

data 

192,48,16,16,16,133,71,6 
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<fe> 

690 

data 

133,133,5,5,9,138,74,14 

<dj> 

700 

data 

8,8,8,16,48,64,192,0 

<f j> 

710 

data 

126,66,100,24,0,0,255,25 
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<hg> 

720 

data 

0,0,1,1,0,0,1,1 

<kc> 

730 

data 

3,3,7,7,14,14,31,24 

<nk> 

740 

data 

48,48,96,96,192,192,0,0 

<mi> 

750 

data 

0,192,32,32,192,192,255, 
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<ai> 

760 

data 

204,204,51,51,204,204,24 


3,31 


<fc> 

770 

data 

0,0,0,0,0,0,128,254 

<el> 

780 

data 

204,204,56,48,224,208,48 


,224 


<fo> 

790 

data 

0,0,0,0,0,0,0,0 

cge> 

800 

goto 

140 

<nl> 

810 

r=0 


<eg> 

820 

goto 

900 

<db> 

830 

f $="" 

:printcl$"sie haben "r" r 


unden in 

"val(ti$)-1"sek." 

<pi> 

840 

print 

"bei Schwierigkeitsgrad ” 



s"geschafft":clr:gosub110 <mf> 

650 print:printspc(10)"weiter j/n" <oa> 
860 getf$:iff$="”then860 <dp> 

870 if f$="n"thenend <dh> 

880 if f$="j"then900 <od> 

890 goto860 <11> 

900 q=1 <bf> 

910 printcl$"bitte geben sie den s 
chwierig-" <dh> 

920 print M Keitsgrad ein (1-100) (1 
angsam-schnell)" <kp> 

930 input s:ti$="000000" <fn> 

940 printcl$" runden:"spc(6)"schwi 
erigkeitsgrad:":n=0 <cc> 

950 printhe$spc(10)r <ao> 

960 printhe$spc(33)s <ia> 

970 print <de> 

980 print"HFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFFFFFFFFG" <pm> 

990 print"E"spc(38)"E" <bj> 

1000 print"E"spc(38)"E" <kl> 

1010 print"E"spc(38)"E" <pe> 

1020 print”E"spc(3)"HFFFFFFFFFFFFF 
FFFFFFFFFFFFFFFFFG"spc(3)"E" <jh> 

1030 print"E"spc(3)"IFFFFFFFFFG"sp 
c(20)"E"spc(3)"E" <hj> 

1040 print"E"spc(13)"E"spc(20)"E"s 
pc(3)"E" <jf> 

1050 print"E"spc(13)"EHFFFFFFFFFFF 
FFFFFFFFJ"spc(3)"E" <gn> 

1060 print”E"spc(13)"EE"spc(23)"E" <fh> 
1070 print"IFFFFFFFFFG"spc(3)"EE H 
FFFFFG"spc(15)"E" <of> 

1080 print"HFFFFFFFFFJ"spc(3)"EE E 
Z"yo$yq$" E"spc(15)"E" <kg> 

1090 print"E"spc(13)"EE E "ym$zz$s 
2$" E"spc(3)"HFFFFFFFFFFFJ" <na> 

1100 print"E"spc(13)"EE E "yn$spc( 

3)"E"spc(3)"IFFFFFFFFFFFG” <do> 

1110 print"E"spc(13)"EE E Z"yo$yq$ 

" E"spc(15)"E" <in> 

1120 print"E"spc(3)"HFFFFFFFFFNO E 
"ym$zz$s2$" E"spc(15)"E" <km> 

1130 print"E"spc(3)"EPSVwrittenE E 
"yn$spc(3)"E"spc(15)"E" <fk> 

1140 print"E"spc(3)"EQTW"spc(2)"by 
"spc(3)”E IFFFFFJ"spc(3)"HFFFFFFFG 
"spc(3)"E" <po> 

1150 print"E"spc(3)"ERUXm.poserE"s 
pc( 11)"E"spc(7)"E"spc(3)"E" <lc> 

1160 print"E"spc(3)"IFFFFFFFFFFNFF 
FFFFFFFFFOHFFFFFFJ"spe(3)"E" <ha> 

1170 print"E"spc(26)"IJ"spc(10)"E" <hg> 
1180 print"E"spe(3)"HFFFFFFFFFFFG" 
spc(22)"E" <nd> 

1190 print"E"spc(3)"E"spc(11)"E"sp 
c(22)"E" <go> 


1200 print"IFFFJ"spc( 11)"IFFFFFFFF 
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MOTOR-RACE 


TIPS & TRICKS 


FFFFFFFFFFFFFF"he$:poke4071,74 <oi> 

1210 printhe$left$(qd$,0)spc(16)"u 
nfaelle:"spc(6)q-1 <cm> 

1220 printhe$left$(qd$,7)spc(16)"s 
ekunden: ";int(ti/60) <dj> 

1230 i=3954:poke i,65:n=0:poke3918 
,64 - <cn> 

1240 do:a$="":poke3917-79,85:char 
1,27,7,ti$:geta$ <ef> 

1250 foro=1to s:next:if a$=""theno 
*0:poke3917-79,89 <jo> 

1260 ifn>0thensound3,200,1:ifi=391 
8then1420:elsepokei,32 <mc> 

1270 b=n:n=instr(in$,a$):ifn=0then 
n=b <eh> 

1280 i=i+f(n):ifpeek(i)<69thenpoke 
i,65+n-sgn(n):loop <en> 

1290 rem Unfall <bg> 

1300 loopuntil 1=-1: sound 3,600,55 <po> 
1310 poke i,75:p=0 <oh> 

1320 forp=1to2S0:next <kf> 

1330 poke i,76:p=0 < jP > 

1340 forp“1to250:next <gd> 

1350 poke i,77:p=0 <lh> 

1360 forp=1to250:next <ae> 

1370 if q<4 thenq=q+1:poke239,0:go 
to 940 <pb> 

1380 ifq>3then830 <ni> 

1390 f$="":char1,0,0,cl$:char 1,8, 

12,"betruegen gilt nicht":r=r-1 <bn> 
1400 getf$:iff$=""then1400 <bh> 

1410 if q<4 thenq=q+1:goto 940 <id> 

1420 printhe$spc(10);:r=r+1:printr 
:if peek(3918)=67thenloopuntil1=1: 
goto1390 <ib> 

1430 poke 3918,64:goto1270 <ak> 

1440 rem nachspann =============== <di> 

1450 rem * farbcodes/steuercodes * <jb> 
1460 c4$=chr$(017):rn$=chr$(018) <el> 
1470 he$=chr$(019) <li> 

1480 rf$=chr$(146):cl$=chr$(147) <nb> 
1490 rem *** zeichensatz/graphik * <ni> 
1500 s2$=chr$(160):ym$=chr$(219) <am> 
1510 yn$=chr$(220):yo$=chr$(221) <al> 
1520 yq$=chr$(223):zz$=chr$C255) <ng> 
1530 rem ********* Zeichenfolgen * <nb> 
1540 for q=1 to 40 <fp> 

1550 qd$=qd$+c4$ <nh> 

1560 next q <mo> 

1570 return <no> 

1580 rem ========================= <jo> 

1590 rem 12277 bytes memory <lc> 

1600 rem 04710 bytes program <fa> 

1610 rem 00168 bytes variables <ig> 

1620 rem 00062 bytes arrays <cn> 

1630 rem 00402 bytes strings < jP > 

1640 rem 06935 bytes free (0) <gi> 

1650 rem ========================= <bi> 


TIC-TAC-TOE 

Menschen gegen 
Computer 

Daß ein Computer intelligent sei, ist eine 
Fehlannahme. Wenn sich Intelligenz mit Intelligenz 
mißt, dann höchstens die des Programmierers mit der 
des vor dem System Sitzenden. Zeigen Sie, 
wer hier der Gewinner ist. 

Wer kennt es nicht, das kleine Quadrat mit den neun 
Feldern. Das Spiel heißt TIC TAC TOE. 

Wer drei Symbole in eine Reihe bringt, hat gewonnen. 
Nach dem Start des Spiels mit RUN erscheint das 
Spielfeld und das Programm frägt, wer beginnt. ‘C‘ 
heißt Computer, ‘M‘ steht für Mensch. Vor dem Spiel 
wird der Spielstand eingegeben. Er kann während des 
Spiels verändert werden. Dies geschieht mit der Taste 
‘S\ 

Es erscheint auf dem Bildschirm links die Bedenkzeit 
des Computers und rechts die des Spielers. 

Das Symbol für den Computer ist ein Kreis auf dem 
Spielfeld. Der Mensch spielt mit einem Kreuz. 

Die Zugeingabe erfolgt durch Angabe der Nummer 
des gewünschten Feldes. 

Nachdem man dem Computer eine Lektion erteilt 
hat (oder selber eine erhielt), wird man gefragt, ob 
man nocheinmal spielen möchte. Ja heißt *j*. □ 
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TIC-TAC-TOE 


1 


i rem tic-tac-toe =========== c 16 <in> 

:• rem (p) commodore weit team <ho> 

jg rem =========================== <mm> 

^ rem (c) by ekremhan tuncer <ia> 

54 rem <pd> 

54 rem <ah> 

'"8 rem basic v3.5 <nl> 

•l rem c16/116/plus4 <ki> 

20 vol 8:gosub2120 <mc> 

118 scnclr <me> 

‘20 color 4,1:color 0,8 <co> 

‘30 print chr$(8) <fk> 

*40 print lb$c2$"* "rn$"tic tac to 
s“rf$" von ”rn$"ekremhan tuncer"rf 
S" 1988 *"bk$ <nj> 

150 dim f p( 9, 1 , 1) ,ff 9) , skf 24) <bm> 

160 b$=f1$:ct$="000000":mt$="00000 
8" <kg> 

170 mz$="IIN"+c1$+c1$+c4$+ ,, NII" :cz$= 
"UI"+c1$+c1$+c4$+"JK" <he> 

*80 print c4$c4$c4$ <mm> 

'90 printspcf14)"UCC"zh$"CC"zh$"CC 

<hg> 

200 printspc(14)"Bl B2 B3 B" <jp> 

210 printspc( 14)"B"spcf2)"B"spc(2) 
"B"spc(2)"B" <ib> 

220 printspcf 14) za$ ,, CC"ym$"CC”ym$" 

-C zi$ <lh> 

230 printspc( 14)"B4 B5 B6 B" <pf> 

240 printspc( 14)"B"spc(2)"B"spc(2) 
"B"spc( 2)"B" <bd> 

250 printspc( 14)za$”CC"ym$"CC"ym$" 
CC"zi$ <fk> 

260 printspcf14)"B7 B8 B9 B" <ka> 

printspof14)"B"5pc(2)"B“spc(2) 
"B"spc(2)"B" <dn> 

280 printspcf14)"JCC"zg$"CC"zg$"CC 
K" <jc> 

290 gosub1420:gosub1720:gosub1610: 
goto 1550 <nd> 

300 char 1,3,20,chr$(27)+ "q" <ai> 

310 char 1,12,20,chr$f27)+"q" <bo> 

320 ifzu=>9thenchar1,15,12,c1$+c1$ 
+c1$+fl$+left$fqd$,5)+"unentschied 
en":goto1260 <cm> 

330 print"ihr zug "fl$”?"fo$:ti$=m 
t$:at$="c" <gm> 

340 getmp$:gosub1820 <kd> 

350 if mp$="s” then gosub 1720:got 
o 310 <op> 

360 mz=val(mp$) <cp> 

370 if mz>9 or mz<1 then 340 <ad> 

380 if ffmz)<>0 then 340 <dk> 

390 char 1,22,20,mp$ <jd> 

400 ffmz)=10:ti$=ct$:at$= M m":gosub 

750 <fp> 

410 ifzu=>9thenchar1,15,12,fl$+c1$ 


+c1$+c1$+l8ft$(qd$,5)+"unentschied 
en"+bk$:goto1260 <oj> 

420 gosub 1070:gosub 1820 <bl> 

430 if s=1 then gosub 1200:goto 31 
0 <po> 

440 if s=2 then 460 <ap> 

450 ifzu=1orzu=2thengosub1360:goto 
310 <kg> 

460 restore <ch> 

470 i=0 <hh> 

480 gosub 1820 <ad> 

490 do <mc> 

500 i=i+1 <hk> 

510 read a,b,c <ok> 

520 if ff a)+f(b)=20 and ffc)=0 the 
n cz=c:gosub880:goto 310 <de> 

530 loop until i=24 <op> 

540 gosub 1820 <jl> 

550 ip=0:op=0 <gh> 

560 for ii=1 to 9 <oj> 

570 om=0:restore 2030 <gi> 

580 if ffii)<>0 then 690 <cf> 

590 gosub 1820 <nb> 

600 for ia=1 to 8 <fm> 

610 ffii)=1 <jo> 

620 read a,b,c <hg> 

630 if f(a)+f(b)+f(c)=2 then om=om 
+1 <fk> 

640 ffii)=10:if ffa)+f(b)+ffc)=20 
then op=op+1 <11> 

650 if om=2 then cz=ii:ffii)=1:gos 
ub 810:goto 310 <op> 

660 if op-2 then ip=ii <ld> 

670 next ia <oc> 

680 ffii)=0 <pc> 

690 next ii <ij> 

700 if op>=2 then cz=ip:ffcz)=1:go 
sub 810:goto 310 <cj> 

710 gosub 1820 <nm> 

720 gosub 1200 <af> 

730 goto 310 <hb> 

740 rem zeichnen mensch <fn> 

750 x=fp(mz,1,0):y=fp(mz,1,1) <ek> 

760 char 1,x+13,y+5,mz$ <jl> 

770 zu=zu+1 <hd> 

780 gosub 920 <ng> 

790 return <ma> 

800 rem zeichnen Computer <oj> 

810 x=fpfcz,1,0):y=fpfcz,1,1) <ga> 

820 char 1,x+13,y+5,cz$ <fb> 

830 zu=zu+1 <jf> 

840 gosub 990 <jo> 

850 sound 1,800,10:sound 2,812,10 <me> 
860 return <em> 

870 rem verteidigen <ea> 

880 ff c)=1 <fl> 

890 gosub 810 <kp> 

900 return <jn> 
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TIC—TAG—T OE 


2 


910 rem siegsr Kontrolle mensch <bo> 

920 for i=1 to 24 step 3 <ao> 

930 a=sk(i):b=sk[i+1) <hh> 

940 c=sK(i+2) <pK> 

950 iffC a)+f(b)+f(c)<>30thennexti: 
goto9?0 < ig > 

960 char1,5,18,c2$+rn$+f 1$+c3$+c3$ 
+”bravo sie haben gewonnen":goto12 
60 <ja> 

970 gosub 1020 <ib> 

980 return <dn> 

990 rem Sieger Kontrolle Computer <do> 

1000 for i=1 to 24 step 3 <ko> 

1010 a=sk(i):b=sk(i+1):c=sk(i+2) <li> 

1020 if f(a)+f(b)+f(c)=3 then 1180 <pa> 
1030 next i <hg> 

1040 gosub 1820 <fi> 

1050 return <mk> 

1060 rem 3 nebeneinander machen <ae> 

1070 restore <pa> 

1080 gosub 1820 <Bp> 

1090 for i=1 to 24 <dd> 

1100 read a,b,c <po> 

1110 if f(a)+f (b)=2 and f(c)=0 the 
n cz=c:goto 1170 <oh> 

1120 if f(a)+f(c)=2 and f(b)=0 the 
n cz=b:goto 1170 <pf> 

1130 if f(b)+f(c)=2 and f(a)=0 the 
n cz=a:goto 1170 <ha> 

1140 next i <cn> 

1150 gosub 1820 <ch> 

1160 return <Kh> 

1170 gosub 810 <ej> 

1180 charl,3,18,re$:printc2$rn$fl$ 
"anfaenger !!!"rf$" ich habe gewon 
nen !!!"bk$:goto1260 <cm> 

1190 rem zufaellig saetzen <eb> 

1200 c=int(9*rnd( 1))+1 <oh> 

1210 if f(c)<>0 then goto 1200 <gk> 

1220 f(c)=1:cz=c <kd> 

1230 gosub 1820 <cb> 

1240 gosub 810 <kf> 

1250 return <fl> 

1260 getKey a$ <Ka> 

1270 char 1,10,20,chr$(27)+"q" <af> 

1280 char 1,5,20,rf$+fo$+" wollen 
sie nocheinmal (j/n) "+fl$+"?"+fo$ <bi> 
1290 getKey a$ <ig> 

1300 if a$-="j" then run <iK> 

1310 if a$="n" then sys 65526 <nd> 

1320 goto 1290 <co> 

1330 rem fehler <mk> 

1340 resume <fi> 

1350 rem erster schritt i und ii <bm> 

1360 cz=(int(5*rnd(1))+1)*2-1 <ei> 

1370 gosub 1820 <ld> 

1380 if f(cz)<>0 then 1360 <fb> 

1390 f(cz)=1 <fa> 


1400 gosub 810 <Kp> 

1410 return <jn> 

1420 rem feld init <fl> 

1430 restore 1990 <en> 

1440 for i=1 to 9 <po> 

1450 read a,b,c <og> 

1460 f p( i, 0,0} =a : f p[ i , 1,0) =b :fp(i, 

1,1)=c <ci> 

1470 next i <fl> 

1480 restore 2040 <fn> 

1490 for i=1 to 24 <aa> 

1500 read a <nf> 

1510 sk(i)=a <ab> 

1520 next i <cd> 

1530 return <in> 

1540 -<cK > 

1550 char 1,3,20,"wer faengt an " <bi> 

1560 printfl$+"?”fo$" [computer=’T 
n$"c"rf$" mensch t ="rn$"m"rf $"] " <ga> 

1570 getKey a$ <bj> 

1580 if a$«"m" then at$“"c":ti$="0 
00000":goto300 <ma> 

1590 if a$="c" then at$="m":ti$="0 
00000":gosub 1360:goto 300 <el> 

1600 goto 1570 <em> 

1610 char 1,2,7,"UCCCCCCCCI" <pk> 

1620 char 1,2,8,"BcomputerB" <jh> 

1630 char 1,2,9,za$+"CCCCCCCC"+zi$ <fk> 
1640 charl,2,10,"B"+re$+"00:00:00" 
+bk$+"B" <dp> 

1650 charl,2,11,"JCCCCCCCCK" <Kj> 

1660 char 1,26,7,"UCCCCCCCCI" <op> 

1670 char 1,26,8,"B mensch B" <mj> 

1680 char 1,26,9,za$+"CCCCCCCC"+zi 
$ <da> 

1690 charl,26,10,"B"+re$+"00:00:00 
"+bK$+"B" <nc> 

1700 charl,26,11,"JCCCCCCCCK" <fe> 

1710 return <ph> 

1720 rem Schwierigkeitsstufe <fn> 

1730 charl,0,20,"stufe * <ci> 

1740 printfl$"?”fo$" ["rn$"1"rf$"] 
leicht [ "rn$"2"rf$"]mittel ["rn$"3 
, "rf$"]schwierig" <hj> 

1750 gets$:s=val(s$) <lo> 

1760 if s<1 or s>3 then 1750 <ca> 

1770 char 1,0,20,chr$(27)+"q" <co> 

1780 char 1,14,2,"UCCCCCCCCI <fk> 

1790 char 1,14,3,"B"+gr$+"stufe:" + 
str$(s)+bk$+"B" <fh> 

1800 char 1,14,4,"JCCCCCCCCK <fh> 

1810 return <ma> 

1820 if at$="c" then 1060 <mn> 

1830 ct$“ti$:ze$=re$+left$(ct$,2)+ 

":"+right$(left$(ct$,4),2)+":"+rig 
ht$C ct$,2)+bk$ <bp> 

1840 char 1,3,10,ze$ <aK> 

1850 return <ba> 
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'060 mt$“ti$:ze$=re$+left$(mt$,2)+ 
* : " + right$(left$(mt$,4),2)+":"+rig 


it$( mt$,2)+bk$ <Ki> 

1070 char 1,27,10,ze$ <KK> 

18B0 return <ere> 

'890 offene muehle <bd> 

1900 data 1,2,3,3,6,9,8,9,7,4,7,1 <fo> 
1910 data 2,3,1,6,9,3,7,8,9,1,4,7 <ii> 
1920 data 1,3,2,4,6,5,7,9,8 <mb> 

1930 data 1,7,4,2,8,5,3,9,6 <af> 

1940 data 1,9,5,3,7,5 <ak> 

1950 data 1,5,9,5,9,1,7,5,3,5,3,7 <cb> 
1960 data 4,5,6,5,6,4,2,5,8,5,8,2 <ek> 

1970 - <bg> 

1980 - feld -<gk> 

1990 data 1,2,1,2,5,1,3,8,1 <i g > 

2000 data 4,2,4,5,5,4,6,8,4 <ea> 

2010 data 7,2,7,8,5,7,9,8,7 <ke> 

2020 - <no> 

2030 *** Sieger kontrol *** <fn> 

2040 dato 1,2,3,4,5,6,7,8,9 <kp> 

2050 data 1,4,7,2,5,8,3,6,9 <al> 

2060 data 1,5,9,3,5,7 <ic> 

2070 - - 

2080 — schritt 1 — <ie> 

2090 data 1,2,3,3,6,9 < on > 

2100 data 7,8,9,1,4,7 <ad> 

2110 - <jn> 

2120 rem nachspann =============== <ji> 

2130 rem * farbcodes/steuercodes * <no> 

2140 c4$=chr$(017):rn$=chr$(018) <lj> 

2150 re$=chr$(028):c3$=chr$(029) <ek> 

2160 gr$=chr$(030):fl$=chr$(130) <aa> 

2170 fo$=chr$(132):bk$=chr$(144) <em> 

2180 c2$=chr$(145):rf$=chr$(146) <db> 


2190 lb$=chr$(154):c1$=chr$(157) <ab> 
2200 rem *** zeichensatz/graphik * <hc> 
2210 za$=chr$(171):zg$=chr$(177) <dj> 
2220 zh$=chr$(178):zi$=chr$(179) <oo> 
2230 ym$=chr$(219) <i g > 
2240 rem ********* zeichenfol g en * <dd> 


2250 for q=1 to 40 <il> 
2260 qd$=qd$+c4$ <hd> 
2270 next q < op > 
2280 return <gp> 
2290 rem ========================= <cm > 

2300 rem 12277 bytes memory <op> 
2310 rem 05479 bytes program <bn> 
2320 rem 00287 bytes variables <om> 
2330 rem 00400 bytes arrays <mm> 
2340 rem 00469 bytes strings <bi> 
2350 rem 05642 bytes free (0) <od> 
2360 rem ========================= <n> 


23 neue 
Befehle für Sie 

Suchen, ersetzen, mergen und vieles mehr 
können Sie mit den neuen Befehlen dieser BASIC- 
Erweiterung. Testen Sie, und Sie werden sie 
nicht mehr missen mögen. 


AUTO 

AUTO wurde in zwei 
Punkten geändert. Zum 
einen wird ein Zeichen 
zwischen der Zeilennum¬ 
mer und dem Cursor ge¬ 
löscht und nicht nur über¬ 
sprungen. Zum anderen 
werden bereits existie¬ 
rende Zeilennummern 
revers darsgestellt, um zu 
warnen. 

TRON 

TRON ist ebenfalls modi¬ 
fiziert. Die Zeilennum¬ 
mer wird in der HOME- 
Position revers ausgege¬ 
ben. Man kann mit C= 
oder mit SHIFT verlang¬ 
samen. C verringert die 
Geschwindigkeit nur un¬ 
wesentlich, SHIFT ver¬ 
langsamt so, daß man 
mitschreiben kann. Mit 
SHIFT LOCK kann man 
den Langsamgang auch 
arretieren. Wie bei LIST 
ist es auch mit CTRL S 
möglich, den Prozeß zu 
stoppen und auf Tasten¬ 
druck wieder zu starten. 
Wird mit CMD die Ausga¬ 
be auf einen Drucker ge¬ 
lenkt, so sind die Zeilen¬ 
nummern nicht revers. 

OLD 

OLD dient dazu, ein 
durch NEW versehentlich 
gelöschtes Programm wie¬ 
derherzustellen. 

Es darf zwischen NEW 
und OLD keine Variable 
definiert werden, weil 
dann das Programm zer¬ 
stört wäre. 

MERGE 

MERGE dient dazu, 
zwei BASIC-Programme 
miteinander zu verknüp¬ 
fen: Man lädt ein Pro¬ 
gramm normal mit LOAD 
oder DLOAD oder 
schreibt es direkt in den 
Speicher. Das zweite Pro¬ 
gramm lädt man mit 
MERGE nach. Ihm darf 


auch ein Maschinenpro¬ 
gramm folgen, nicht aber 
dem ersten, weil es sonst 
überschrieben würde. 

Die Syntax ist wie die 
von LOAD. 

DRUN 

DRUN ist eine Kombina¬ 
tion aus LOAD und RUN. 
Die Syntax ist wie die 
bei DLOAD. Es ist nicht 
möglich, eine Zeilennum¬ 
mer für RUN anzugeben. 

DVERIFY 

DVERIFY ist ein VERIFY 
auf Diskette; sonst wie 
VERIFY. 

Die Syntax ist wie die 
von DLOAD. 

DMERGE 

DMERGE ist ein 
MERGE auf Diskette. 

Die Syntax ist wie die 
von DLOAD. 

FETCH(AD) 

FETCH(AD) liest, ähn¬ 
lich wie PEEK(AD), ein 
Byte aus dem ROM. 

PEEK liest aus dem 
RAM. Hierbei ist AD die 
gesuchte Speicherstelle. 

LIST# 

Dieser Befehl druckt ein 
Programmlisting aus. Die 
Syntax ist wie folgt: 
LIST#G,[S][,A#][—[E#]] 
Dabei bedeuten: G die 
Geräteadresse 1<G<8, 

S die Sekundäradresse, 
A#die erste Zeilennummer, 
E# die letzte Zeilennum¬ 
mer. 

Wird S nicht angegeben, 
so gilt S=); für die Zei¬ 
lennummern gilt die Syn¬ 
tax von LIST. 

Beispiele: 

LIST#4,7,10-80 listet 
auf Drucker vier in Groß- 
Kleinschrift von Zeile 
10 bis 80. 

LIST#5„10— listet auf 
Drucker fünf in Groß- 
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Grafikschrift ab Zeile 10. 
LIST#3 listet das kom¬ 
plette Programm auf den 
Bildschirm. 

SPLIT 

SPLIT erzeugt zwei 
BASIC-Speicher und 
stellt den Grafikspeicher 
bereit. 

Die beiden Bereiche sind 
unabhängig; man kann in 
jedem Variablen gleichen 
Namens bereithalten. 

Wird, während Split ak¬ 
tiv ist, GRAPHIC CLR 
eingegeben, so wird nur 
GRAPHIC 0 ausgeführt. 

CHANGE 

CHANGE dient zum Aus¬ 
wählen des gewünschten 
Speicherteils. CHANGE 
wechselt immer zum ge¬ 
rade inaktiven Teil. Ist 
noch nicht SPLIT gege¬ 
ben worden, so erfolgt 
die Meldung OUT OF 
MEMORY ERROR. 

PART 

Dies ist eine numerische 
Variable und gibt den 
gerade aktiven Speicher¬ 
bereich an. Hierbei gilt: 

0 = kein Speichersplit, 

1 = Speicherbereich 1 und 

2 = Speicherberiech 2. 

NOSPLIT 

NOSPLIT hebt Speicher¬ 
split wieder auf und gibt 
den Grafikspeicher wie¬ 
der frei. 

SEARCH • 

SEARCH ist ein Suchbe¬ 
fehl, mit dem Texte oder 
Befehle im Programm ge¬ 
sucht und ersetzt werden 
können. 

Die Syntax ist folgender¬ 
maßen: SEARCH Sl$ 
[,[A][,E]][REPLACE S2$] 
Hierin sind: 

S1 $ = Suchstring, 

A = erste Zeilennum¬ 
mer 

E = letzte Zeilen¬ 
nummer, 

S2$ = Ersatzstring. 

Statt REPLACE wird 
auch ein Semikolon ak¬ 
zeptiert. 

Ein gültiger Such- bzw. 
Ersatzstring ist: 

1. ) in Anführungszeichen 
gesetzte Texte. 

2. ) Stringvariable. 

3. ) In Apostrophe gesetz¬ 
te Befehle. 


4.) Eine belibige Kombi¬ 
nation aus 1.) bis 3.). 

Der Suchstring darf nicht 
leer sein, der Ersatzstring 
schon — zum Löschen. 

Um ein Anführungszei¬ 
chen zu suchen, kann 
man CHR$(34) verwen¬ 
den. Ein Apostroph kann 
auch durch CHR$(1)+ 
string ersetzt werden, 
aber dann muß der nach¬ 
folgende String bereits 
tokenisiert vorliegen. 

Um einen Text nach 
REM zu finden, muß man 
den gesuchten Text in 
Anführungszeichen set¬ 
zen. Um Text, der nicht 
in Anführungszeichen 
steht, hinter DATA zu 
finden, benutzt man 
CHR$( 1)+“. 

Im Such- oder Ersatz¬ 
string darf kein CHR$(0) 
Vorkommen, da ein Null¬ 
byte ein Zeilenende mar¬ 
kiert. Kommt CHR$(1) 
vor, so bleibt dies ohne 
Wirkung. Es ist zu beach¬ 
ten, daß einige Zeichen in 
verschiedenen Bedeutun¬ 
gen auftreten können, 
zum Beispiel kann ein * 
als Multiplikations-Zei¬ 
chen tokenisiert oder als 
Stern übernommen wer¬ 
den. Im ersten Fall er¬ 
setzt man durch und 
im zweiten durch 
Ein paar Beispiele: 
SEARCH‘COLOR 1,5‘ 
REPLACE‘COLORl ,7,3‘ 
ersetzt im ganzen Pro¬ 
gramm die Befehlsfolge 
COLORl,5 durch 
COLOR1,7,3. 
SEARCH“HUND“,100 
sucht das Wort 
HUND ab Zeile 100 
und löscht es. 
SEARCH‘?‘,,400 sucht 
den Befehl PRINT im 
Programm bis Zeile 400. 
SEARCHCHR$(1 )+“*“ 
sucht im Programm un¬ 
ter den Befehlen einen 
Stern. Dies kann norma¬ 
lerweise nicht Vorkom¬ 
men, da der BASIC-In¬ 
terpreter bei der Pro¬ 
grammeingabe einen 
Stern in ein Multiplika¬ 
tions-Zeichen tokenisiert. 
Eine gefundene Zeile 
wird in der Form 
<Zeilen#> auf dem 
Bildschirm angezeigt. Je¬ 
de Zeile wird nur ein¬ 
mal ausgewiesen, auch 


wenn der Suchstring 
mehrmals in ihr vor¬ 
kommt. 

Beim Ersetzen wird so 
oft ersetzt, wie der String 
in der Zeile vorkommt. 
Man kann mit RUN/ 

STOP den Prozeß abbre¬ 
chen, doch immer erst 
dann, wenn eine Zeile 
komplett abgearbeitet 
worden ist (daher länger 
auf der Taste bleiben). 

Zu den Fehlermeldungen: 
SYNTAX ERROR tritt 
auf, wenn die Syntax 
nicht eingehalten wird, 
der Suchstring leer ist 
oder ein CHR$(0) vor¬ 
kommt. 

TYPE MISMATCH 
ERROR ist im Handbuch 
erklärt 

ILLEGAL QUANTITY 
ERROR tritt auf, wenn 
die Zeilennummer unzu¬ 
lässig ist, also A>E, 

E>63999 oder negative 
Zeilennummern. 

OUT OF MEMORY 
ERROR kann auftreten, 
weil der Programmtext 
beim Ersetzen länger wer¬ 
den kann. 

STRING TOO LONG 
ERROR kann mehrere 
Ursachen haben: der 
Such- oder Ersatzstring 
ist zu lang, beim Ersetzen 
wird eine BASIC-Zeile 
länger als 255 Zeichen 
oder beim Löschen würde 
eine Zeile ganz wegfal¬ 
len. 

FORMULA TOO 
KOMPLEX ERROR 
kann auftreten, wenn der 
Such- oder Ersatzstring 
zu umfangreich ist, zu 
viele Apostrophe enthält. 
Da der Suchbefehl das 
Programm editiert und 
somit der Programmtext 
länger oder kürzer wer¬ 
den kann, werden alle 
Variablen gelöscht. 

Es gibt noch eine interes¬ 
sante Anwendung bei 
der Erstellung von Pro¬ 
grammen : 

Will man einen Variablen¬ 
namen benutzen, der ein 
BASIC-Wort enthält, et¬ 
wa WINDOW (enthält 
DO), so benutzt man 
zuerst eine Hilfsvariable 
wie QQ und ersetzt 
dann mit SEARCH‘QQ‘; 
“WINDOW“ die Variable 
im Programm. Man er¬ 


hält dadurch keinen 
SYNTAX ERROR mehr. 
Allerdings werden auch 
hier nur die ersten bei¬ 
den Buchstaben, also 
WI, zur Erkennung ver¬ 
wendet. 

FAST 

FAST dient zum Aus¬ 
schalten des Bildschirms, 
um die Rechengeschwin¬ 
digkeit um die Hälfte zu 
beschleunigen. 

SLOW 

SLOW schaltet den Bild¬ 
schirm wieder ein. 

SET 

SET dient zum Setzen 
des Cursors. Die Syntax 
ist SET Z,S. 

Z bezeichnet die Zeile 
und S die Spalte, in die 
der Cursor gesetzt wer¬ 
den soll. Für Z sind die 
Werte Null bis 24 und 
für S die Werte Null bis 
39 zulässig. Ein nachfol¬ 
gender PRINT-Befehl be¬ 
zieht sich auf die ange¬ 
gebene Stelle am Bild¬ 
schirm. Im Direktmodus 
allerdings nur dann kor¬ 
rekt, wenn der PRINT- 
Befehl gleichzeitig mit 
SET eingegeben wird. 
Sonst würde nach der Aus¬ 
gabe von READY der Cur¬ 
sor zwei Zeilen tiefer 
stehen. 

GENDAT 

Mit diesem Befehl kann 
man einen Speicherbe¬ 
reich in DATA-Zeilen ab- 
legen. Die Syntax ist 
folgendermaßen: 
GENDAT A TO B 
[START C][STEPD] 
[INC] 

Hierin bedeuten: 

A = Bereichsanfang. 

B = Bereichsende. 

C = BASIC-Zeilennum- 
mer, bei der die 
Datas beginnen sol¬ 
len, Default=10. 

D = Schrittweite der 
Zeilennummern 
(siehe AUTO), 
Default=10. 

Wird INC angegeben, so 
wird eine Prüfsumme ein¬ 
gebunden. 


Bitte lesen Sie 
weiter auf Seite 127 
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LISTINGSl 


3/XSIC — ERWEITERUNG 


>2538 

4-F 

43 

45 

4e 

2540 

43 

45 

44 

55 

>2548 

41 

50 

48 

49 

>2550 

4c 

41 

43 

c5 

>2558 

4e 

49 

54 

4b 

2560 

43 

4f 

52 

44 

2568 

48 

41 

4e 

47 

•2570 

4f 

52 

d4 

42 

•2578 

44 

4S 

c3 

52 

>2580 

00 

00 

00 

00 

>2588 

00 

00 

00 

00 

>2590 

00 

00 

00 

00 

>2598 

00 

00 

00 

00 

>25a0 

00 

00 

00 

00 

>25a8 

00 

00 

00 

00 

>25b0 

00 

00 

00 

00 

>25b8 

00 

00 

00 

00 

>25c0 

00 

00 

00 

00 

>25c8 

00 

00 

00 

00 

>25d0 

00 

00 

00 

00 

>25d8 

00 

00 

00 

00 

>2Se0 

00 

00 

00 

00 

>25e8 

00 

00 

00 

00 

>25f0 

00 

00 

00 

00 

>25f 8 

00 

00 

00 

00 

>2600 

00 

00 

00 

00 

>2608 

00 

00 

00 

00 

>2610 

00 

00 

00 

00 

>2618 

00 

00 

00 

00 

>2620 

00 

00 

00 

00 

>2628 

00 

00 

00 

00 

>2630 

00 

00 

00 

00 

>2638 

00 

00 

00 

00 

>2640 

00 

00 

00 

00 

>2648 

00 

00 

00 

00 

>2650 

00 

00 

00 

00 

>2658 

00 

00 

00 

00 

>2660 

00 

00 

00 

00 

>2668 

00 

00 

00 

00 

>2670 

00 

00 

00 

00 

>2678 

00 

00 

00 

00 

>2680 

00 

00 

00 

00 

>2688 

00 

00 

00 

00 

>2690 

00 

00 

00 

00 

>2698 

00 

00 

00 

00 

>26a0 

00 

00 

00 

a9 

>26a8 

a2 

1 e 

86 

61 

>26b0 

a2 

fc 

86 

63 

>26b8 

43 

20 

42 

59 

>26c0 

50 

48 

41 

4e 

>26c8 

4c 

49 

43 

4b 

>26d0 

35 

30 

34 

38 

a i 

1 T 1 

Q. 1 

G 

1 33 

1 

1 > 

M 

M E 


c4 

50 

52 

4f 

: <2c> 

52 

c5 

47 

52 

: > 

c3 

52 

45 

50 

: <ee> 

50 

4f 

d0 

49 

: <2a> 

45 

d9 

52 

45 

: <c6> 

a3 

45 

58 

43 

: <24> 

cS 

41 

53 

53 

: <a4> 

49 

54 

a4 

42 

: <7d> 

45 

53 

4S 

d4 

: <b3> 

00 

00 

00 

00 

: <26> 

00 

00 

00 

00 

: <36> 

00 

00 

00 

00 

: <46> 

00 

00 

00 

00 

: <56> 

00 

00 

00 

00 

: <66> 

00 

00 

00 

00 

: <76> 

00 

00 

00 

00 

: <86> 

00 

00 

00 

00 

: <96> 

00 

00 

00 

00 

: <a6> 

00 

00 

00 

00 

: <b6> 

00 

00 

00 

00 

: <c6> 

00 

00 

00 

00 

: <d6> 

00 

00 

00 

00 

: <e6> 

00 

00 

00 

00 

: <f6> 

00 

00 

00 

00 

: <06> 

00 

00 

00 

00 

: < 16> 

00 

00 

00 

00 

: <26> 

00 

00 

00 

00 

: <36> 

00 

00 

00 

00 

: <46> 

00 

00 

00 

00 

: <56> 

00 

00 

00 

00 

: <66> 

00 

00 

00 

00 

: <76> 

00 

00 

00 

00 

: <86> 

00 

00 

00 

00 

: <96> 

00 

00 

00 

00 

: <a6> 

00 

00 

00 

00 

: <b6> 

00 

00 

00 

00 

: <c6> 

00 

00 

00 

00 

: <d6> 

00 

00 

00 

00 

: <e6> 

00 

00 

00 

00 

: <f6> 

00 

00 

00 

00 

: <06> 

00 

00 

00 

00 

: <16> 

00 

00 

00 

00 

: <27> 

00 

00 

00 

00 

: <37> 

00 

00 

00 

00 

: <47> 

00 

00 

00 

00 

: <57> 

9d 

4c 

fd 

f 4 

: <39> 

a2 

e2 

86 

62 

: <e7> 

20 

19 

-F7 

60 

: <69> 

20 

53 

54 

45 

: <d2> 

20 

42 

49 

45 

: < 1 6> 

45 

20 

56 

31 

: <7a> 

38 

2 e 

20 

20 

: <30> 

N 

D E 






Fortsetzung von Seite 120 


Für A und B gilt der Be¬ 
reich Null bis 65535, für 
C und D gilt Null bis 
63999. 

Es werden in jeder Data- 
zeile 22 zweiziffrige Hex- 
Zahlen geschrieben. In 
der letzten Zeile können 
auch weniger stehen. 
Wurde INC angegeben, 
so folgt noch eine vier- 
ziffrige Hex-Zahl, die 
sich als Summe der 22 
Werte ergibt. 

Beispiele: 
GENDAT0TO255 
legt die ersten 256 Byte 
ab Zeile 10 mit Schritt¬ 
weite 10 als BASIC- 

Hofno pK 

GENDATDEC(“2000“) 
TODEC(“3FFF“)START 
1000STEP1INC 
legt ein Grafikbild (Be¬ 
reich von hex2000 bis 
hex3fff) ab Zeile 1000 
mit Schrittweite 1 und 
Prüfsumme im BASIC- 
Programm ab. 

Geben Sie folgende Se¬ 
quenz zum besseren Ver¬ 
stehen ein: 

NEW 

GENDAT0TO24START 

12STEP3 

LIST 

Jetzt erscheint: 

12 DATA00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 00 , 00 , 
00,00,00,00,00,00 
15 DATA00,00,00 
Allerdings werden nicht 
überall nur Nullen stehen. 
Geben Sie dagegen 
GENDAT0TO24INC 
ein, so erhalten Sie: 

10 DATA00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00 , 
oo,oo;oo,oo,oo,oo, 
00 , 00 , 00 , 00 . 00 , 00 , 
0000 

20 DATA00,00,00,0000 
Lesen Sie den ersten Fall 
im Programm ein mit: 

10 RESTORE12:FORI 
=0TO24: READA$ 
:POKEI,DEC(A$) 
:NEXT 


Im zweiten Fall ist es et¬ 
was komplizierter: 

3 RESTORE10:FORI 
=0TO24STEP22:b 
=0:FORJ=0TO21 
6 IFI+J>24THEN30 
:ELSEREADA:B 
=B+DEC(A$):POKEI, 
DEC(A$) 

9 NEXTJ:READA$:IFB 
<>DEC(A$)THEN 
PRINT“PRUEFSUM 
MENFEHLER“: END 
:ELSENEXTI 

10 DATA... 

20 DATA... 

30 hier geht’s dann weiter. 
Zu beachten ist, daß be¬ 
reits existierende Zeilen¬ 
nummern ohne Warnung 
überschrieben werden. 

PROCEDURE 

PROCEDURE lenkt die 
Eingabe auf eine Datei 
eines externen Gerätes. 

Die Syntax ist PROCE- 
DURE“dateiname“,G ; 
wobei G die Geräteadres¬ 
se ist (Default ist 8). 
Vorsicht: Wird von einer 
Floppy eingelesen, so 
darf während der Abar¬ 
beitung kein CLOSE auf 
den Fehlerkanal auftre- 
ten, da sonst die Eingabe¬ 
datei mit geschlossen 
wird (siehe Floppy-Hand- 
buch). 

PROCEND 

PROCEND beendet eine 
mit PROCEDURE aufge¬ 
rufene Datei. 

POP 

POP dient dazu, eine 
Rücksprungadresse von 
GOSUB vom Stack zu 
nehmen, falls man ein 
Unterprogramm nicht 
mit RETURN verlassen 
möchte. 

INITKEY 

INITKEY stellt die 
Standard-Funktionstasten¬ 
belegung her. 

RECORD# 

RECORD# A,B,C posi¬ 
tioniert den Satzpointer 
einer relativen Datei mit 
der Filenummer A auf 
den Satz mit der Num¬ 
mer B auf das C-te Zei¬ 
chen. Dieser Befehl er¬ 
setzt somit den Befehl 
PRINT#15,“p“+CHR$ 
(96+filenummer)+CHR$ 
(lbsatz)+CHR$(hbsatz) 
+CHR$(byte). □ 
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Schnell 


nTT* * 1 Pw II 


Mit der neuen Druckerserie 
MSP-50/55 will Citizen den 
Angebotsbereich der 
professionellen Bürodrucker 
verstärken. Beide Modelle 
unterscheiden sich lediglich 
durch die Verarbeitungsbreite 
von 80 beziehungsweise 132 
Zeichen pro Zeile und durch 
den Anschaffungspreis. 


C itizen-like ist die 
Technik in einem 
superflachen Ge¬ 
häuse mit kaum zehn 
Zentimetern Höhe ver¬ 
packt. Die standardmäßi¬ 
ge parallele Schnittstelle 
wird rechts herausgeführt. 
Dadurch ist ein Konflikt 
zwischen Endlospapier 
und Anschlußkabel aus¬ 
geschlossen. 





TEST! 



Ein bidirektionaler 
Formulartraktor und 
ein Single Sheet Feeder 
gehören ebenfalls zur 
Grundausstattung. 

Für den Papiereinzug 
bieten die neuen Citizen- 
Drucker mehrere Mög¬ 
lichkeiten zur Auswahl. 


Gleich unterhalb der 
. mittstelle finden sich, 
■ei zugänglich, die bei- 
.rn DIP-Schalter-Blöcke 


Der Traktor wird durch 
einen Handgriff vom 
Schub- zum Zugtraktor 
umfunktioniert. Hierbei 


Einstellung der Stand- 
.ri-Parameter und des 
- .tionalen Zeichensatzes. 




wird das Endlosformular 
von der Rückseite zuge¬ 
führt. Ein Schlitz in der 
Unterseite des Gehäuses 
signalisiert eine weitere 
Einzugsmöglichkeit. 

Unter Verwendung des 
Einzelblatteinzugs kön¬ 
nen die MSP-50/55 auch 
Briefbögen verarbeiten. 



Das Einspannen der 

Blätter entfällt völlig. Ein 
Sensor erkennt das neue 
Blatt und löst einen 

Über die Folientasten Mechanismus aus, der es 

des Bedienungspanels automatisch einzieht, 

können die Schriftarten Durch die Papierführungs- 

Draft, NLQ, Highspeed 
und PS angewählt werden. 

Ferner kann in den Quiet- 
Modus umgeschaltet wer¬ 
den. Eine weitere Option 
gestattet es, zusätzliche 
Schriftarten von handli- 
chen IC-Cards nachzula- 
den. 'AV 




schienen wird das Blatt 
meistens korrekt einge¬ 
zogen und ein Zoll unter¬ 
halb der Oberkante zen¬ 
triert. Ein Nachzentrieren 
zählt zu den Ausnahme¬ 
fällen. 


Leider besitzt der Sing¬ 
le Sheet Feeder einen 
kleinen Nachteil: Er muß 
auf den Traktor aufge¬ 
steckt werden. Dadurch 



arbeitet der Traktor auch 
im Leerlauf weiter, ob¬ 
wohl er für die Einzel¬ 
blattverarbeitung nicht 
benötigt wird. Die Citi- 
zen-Drucker sehen keine 
Möglichkeit vor, sie für 
diese Zeit auf Eis zu le¬ 
gen. Im Leerlauf ist das 
monotone Tackern des 
Traktors eine störende 
Geräuschkulisse. 


Schon alleine die Be¬ 
zeichnung NLQ verdeut¬ 
licht, daß das Schriftbild 
nicht die optimalen Mög¬ 
lichkeiten eines Matrix¬ 
druckers erreicht. Der un¬ 
persönliche Computeraus¬ 
druck ist auf Anhieb zu 
erkennen und dient nicht 
gerade als Reklameschild 
(ein allgemeines Problem 
der Neun-Nadel Techno¬ 
logie). 



Im Gegensatz dazu hat 
Citizen den empfohlenen 
Preis von 1898 Mark für 
den MSP-50 (80 Spalten) 
jedoch um mindestens 



Der Druckkopf ist mit 
neun Nadeln bestückt. Er 
bringt Zeichen in Draft 
Quality mit einer Auflö¬ 
sung von 9x9 (IBM Gra¬ 
fikzeichen 12x12) und in 
Near Letter Quality mit 
17x17 Punkten zu Pa¬ 
pier. 



hundert Mark höher an¬ 
gesetzt, als qualitativ ho¬ 
he 24-Nadel-Drucker an¬ 
derer Hersteller dem An¬ 
wender abverlangen. Der 
MSP-55 wird sogar mit 
rund 2400 Mark ange- 
boten. Nach unserer An¬ 
sicht hat Citizen hier da¬ 
nebengegriffen. 



Die mit dem MSP-50/55 
erstellten Grafiken im 
Bit-Image-Mode errei¬ 
chen eine Auflösung bis 
zu 240 Punkten pro Inch. 
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■ TEST 


Durch eine optimale Er¬ 
weiterung können die 
MSP-50/55 Texte und 
Grafiken sogar farbig zu 
Papier bringen. Diese 
Möglichkeit stand uns im 
Test leider nicht zur Ver¬ 
fügung. 



Als Zwischenspeicher 
ist ein Acht-KByte-RAM 
eingebaut. Anpassungs¬ 
probleme gibt es in kei¬ 
nem professionellen Soft¬ 
ware-Paket. Die MSP-50/ 
55 können als Epson EX/ 
FX oder als IBM-Prowrit- 
er installiert werden. Ei¬ 
ner dieser Treiber stellt 
Ihnen Ihr Programm ga¬ 
rantiert zur Verfügung. 


Tatsächlich gehört die 
Citizen-Baureihe MSP-50/ 
55 zu den geräuschinten¬ 
sivsten Nadel-Druckern, 
die jemals in unserer 
Testredaktion standen. 
Selbst der viel gepriesene 
Quiet-Modus schafft es 
bei halbierter Geschwin¬ 
digkeit nicht, die Laut¬ 
stärke auf weniger als 55 
dB(A) zu reduzieren. Der 
leerlaufende Traktor bei 
der Einzelblattverarbei¬ 
tung trägt noch seinen 
Teil zur Geräuschkulisse 
bei. 


Die Geräuschentwick¬ 
lung während des Druck¬ 
vorgangs wurde von Citi¬ 
zen mit weniger als 55 dB 
(A) angegeben. Dieser 
Wert weicht ganz erheb¬ 
lich von unseren Tester¬ 
gebnissen ab. 



Bei den Angaben zur 
Geschwindigkeit müssen 
die Herstellerangaben 
korrigiert werden. Sie be¬ 
ziehen sich auf eine ein¬ 
zige Zeile ohne Berück¬ 
sichtigung der Zeilenvor¬ 
schubzeit. Erst die Be¬ 
rechnung des Durch¬ 
schnitts einer DIN A-4- 
Seite ergibt genaue Werte 
der Geschwindigkeit. 

Unsere Testwerte und 
die Angaben des Herstel¬ 
lers im Vergleich: 



Druckart 

Tatsächliche 

Geschwindigkeit 

Angaben des 
Herstellers 

Draft/HS 

170,3 cps 

300 cps 

Draft 

155,3 cps 

250 cps 

NLQ/HS 

45,9 cps 

60 cps 

NLQ 

39,7 cps 

50 cps 


Die Angaben HS (High¬ 
speed) beziehen sich auf 
die Schriftart Elite mit 
12 cpi. 










Fazit 


Die Citizen-Modelle 
MSP-50/55 haben interes¬ 
sante Features zu bieten. 
Über die Qualität der 
Ausdrucke gibt es nichts 
Negatives zu berichten — 



Die Preise sind höher 
als die einiger weitver¬ 
breiteter 24-Nadel-Druk- 
ker, die mit einer Auflö¬ 
sung bis zu 360 Dots per 
Inch auftrumpfen kön¬ 
nen. Hier sollte Citizen 
seine Preispolitik gründ¬ 
lich überdenken. ■ 


dies gilt aber nur für 
den Bereich der Neun- 
Nadel-Technik. Hier kann 
Citizen allemal standhal¬ 
ten. 

Die Möglichkeiten der 
MSP-50/55 -Drucker, ihr 
Handling und die Ge¬ 
schwindigkeit halten mit 
vergleichbaren Modellen 
durchaus Schritt. Von der 
Lautstärke herübernimmt 
Citizen sogar die Spitzen¬ 
position dieser Technolo¬ 
gie. 
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- . 54! Ich suche Amateur- 
■ - Programme f. Plus4’ An¬ 
te an Rudolf Halmschlag, 
- *:sir. 29E, 2060 Traven- 


: will CBS-Telespiel m. 7 
-: t!en. Tausche auch gg. 
"-tker f. C16 (funktionsf.) 

mich mal an: 06103/ 
1341, Stefan. 


- P4-USER: Orig.-Spiele- 
•vare auf Kass. spottbillig. 
* stiiste gg. 80-Pf.-Freium- 
~~g. Harald Scheel, Kollau- 
• 178, 2000 Hamburg 61 


- 116(64K)/PLUS4! Re- 
- Dateiverw.: bis zu 1.500 
-'.ensätze! Freie Maskener- 
_ :.lung in 10 Feldern a 24 
Zt.rhen! Mit Handbuch! Preis 
: 50 DM plus NN/Porto, 
--gen Vorwerk, Dörener Weg 
1 - a, 4790 Padernborn, Tel. 
5 251/58423 


*PLUS4 * C16 * CI 16 * Auf 
sk! Suche Tauschpartner 
-ecks Prog.- u. Erf.-Aus- 
-asch. Von einem Partner 
rwarte icn Pünktlichkeit u. 
- erster Linie Zuverlässig- 
rit. Listen an: Arne Woll, 
--m Stübenhaus, 2900 Olden¬ 
burg 


ERKAUFE Drucker Bro- 
'her HRS m. Farbbändern u. 
nterface 92008G m. stabili- 
.ertem Netzteil f. 320,- DM. 
Urig.-Verpack., Zustand her- 
crragend. Harald Kesper, 
Vplandstr. 16,3542 Willingen, 
Tel. 05632/69747 nach 18 h 


VERKAUFE: C16/64K, 

rloppy 1551, Datas., User¬ 
port, R6522 VIAPORT, Ep- 
rommer, Software, Lit. (140 
Zeitschr. u. 2 Bücher). NP 
1.100,- DM, VB 900,- DM. 
Info bei: Mike Wieland, Dan- 
z;ger Str. 7, 4430 Steinfurt, 
Tel. 02551/80907 


Logo f. den Plus4, C16(64K): 
Modul, Demodisk u. Hand¬ 
buch, nur DM 50,—. Eprom- 
Platine gesockelt DM 20,-. 
Div. Anwend.-Software auf 
Eprom. Info gg. Freiumschlag 
(1,10 DM). Harals Hobbel- 
mann, Junkernkamp 18, 
2822 Schwanewede, Tel. 
04209/5390 


SUCHE DRUCKER Citizen 1 
IDP 560 u. anderen Drucker 
f. Plus4, z.B. MPS803. Ange¬ 
bote an: Paul Kasparbauer, 
Burgweg 1, 8376 Altenberg 


SUCHE TAUSCHPARTNER 
f. Plus4-Games — nur auf 
Kass. L. Vilikus, Umeletzka 
11, 170 00 Prag 7, CSSR 


VERKAUFE C16(64) - u. 
Plus4-Spiele. Suche Tausch¬ 
partner aus aller Welt f. 
Plus4-Software. Verk. Spiele 
billig, nur Tape! Tel. 04752/ 
228, Jürgen Oschinger, Caden- 
berger Weg 25, 2171 Gevers¬ 
dorf. P.S. Suche Kontakt zu 
Atari-XL800-Besitzern! 


25 Games f. den C16 stehen 
zur Auswahl, pro Stück 1,— 
bis 5,- DM, Paintbox f. 12,- 
DM. Liste anfordern bei S. 
Plasa, Schallmauerweg 25, 
5030 Huerth! Nur m. ent¬ 
sprechendem Rückporto! 

■ - - ■ - ■ - - J 

ACHTUNG, C16/PLUS4- 
USER! Wir suchen noch Mit¬ 
glieder f. den ICUC im In- 
u. Ausland! Kostenlose Infos 
bei: ICUC, Haiweg 77, 4320 
Hattingen. Wir bieten viel: 
Software, Clubzeitung, Kon¬ 
takt zu andern Mitgliedern, 
und, und, und! 


DDR-Bürger sucht Commo- 
dore +4 od. C64, Datasette, 
evtl. Floppy, u. Joystick preis¬ 
günstig, kostenlos od. Wert¬ 
ausgleich m. antiquar. Bü¬ 
chern. Gert Gebauer, Ziegler¬ 
tal 43, DDR-8704 Cunewalde 


HILFE! HILFE! Suche drin¬ 
gend f. Plus4 Drucker u. 
Floppy! Biete pro Gerät 
200,- DM! Bitte melden bei: 
Markus Fingscheidt, Nieder¬ 
weniger Str. 324 A, 4300 
Essen 15, od. Tel. 0201/ 
484592, wochentags ab 17 
Uhr. Es eilt! 


FÜR PLUS4! Verk. 2 doppel- 
seit. bespielte Disketten f. 
nur DM 20,-. Wählt selber! 
Spiele m.u.o. Joystick, CAD-, 
Kopier- od. Anwend.-Prog. 
Michael Schuster, Norder- 
wungweg 1, 2250 Husum 


ACHTUNG! Ich suche Com¬ 
puterclub im Raum Hagen 
zwecks Software- u. Erf.-Aus¬ 
tausch. Auch an privaten 
Kontakten bin ich interessiert. 
Meldet Euch zahlreich bei 
Henning Ritter, Berghofstr. 
22, 5800 Hagen, Tel. 02331/ 
83140 


Endlich: EPROMBRENNER 
für Plus/4 

Für den Plus/4 gibt es endlich 
einen Eprombrenner! 

Er brennt Eproms bis ,27256'. 
Für die Verwaltung der 
Eproms gibt es eine Eprom- 
bank 192 KB auf rüstbar auf 
384 KB; alles schaltbar. 

INFO gegen 0,80 Pfennigbrief¬ 
marke (Freiumschlag) 

Jürgen Braunroth, Moordor- 
ferstr. 30, 3057 Neustadt 1 


CIG nimmt noch Mitglieder 
auf. Sofort Superinfo anfor¬ 
dern! Clubzeitung, Infos zu 
Script, Freesoft. Alles kosten¬ 
los. Außerdem Softwarebib¬ 
liothek m. über 400 Prog. 
Info gg. 1,60 DM. CIG, c/o 
K.-D. Schindler, Luciusstr. 
10 A, 6230 Frankfurt 80 


CI 6/116/PLUS4-SOFT- 
WARE. Die besten 64KB- 
Prog. auf einer zweiseit. Disk. 
Von Top-Kopierprog. bis 
Strategie- u. Ballerspielen. 
Also gleich bestellen: 25,— 
DM Vorkasse an: Robert 
Waltereit, Donaustr. 51, 280C 
Bremen 1 


PLUS4/C16/C116: Biete 100 
Spiele u. 10. Anwend.-Prog. f. 
20,- DM (Disk). Schein od. 
Scheck. Suche Kopierprog. v. 
Tape to Disk. Listing gg. 1,— 
DM, 4 Diskseiten o. Porto. 
Rainer Pytlik, Lettenallee 69, 
1000 Berlin 51 


Milchquotengeplagter Pro¬ 
vinzbauer sucht intakte Flop¬ 
py u./od. Drucker. System 
P4. Max. 100,- DM pro Ge¬ 
rät. Angebote bitte an Georg 
Bohlen, Untenende Ost 33, 
2912 Nordgeorgsfehn 


*** MPS 803 *** Commo- 
dore Drucker m. Traktor, 
Handbuch, orig.-verpackt, VB 
320,— DM. Suche Anwend.- 
Software u. Bombjack CI6. 
Tel. tagsüber 08141/60290, 
J. Lachenmeyer, Augsburger 
Str. 23, 8950 Kaufbeuern 


P4-BESITZER sucht Tausch- 
partner(in), Disk, evtl, auch 
Kass. Verk. Karate King 
(64KB) u. Strip Poker 
(64KB) a 10,- DM. Suche 
Paperboy u. Pin Point. Zahle 
bis zu 50 % des Neupr. Liste 
an: M. Schlichting, Lipper- 
kamp 49, 2850 Bremerhaven 


PLUS4, Datas., Floppy, 
BASIC-Kass., COM.PRG. 
Disk, div. Bücher, 2 Jg. CW u. 
CM, 50 Disks: 4 Textprog., 
Dateien usw., 100 Spiele, z.B. 
Ace, Summer & Winter 
Olymp., Pacman usw. zu 
verk. Festpreis DM 400,—, 
Neupreis ca. DM 1.000,—. 
1 Jahr alt. Tel. 0591/2086, F. 
Hackmann 


VERKAUFE Spiele, KLEINE 
Kopien, f. C16 und P4: Apol¬ 
lo Rescue, Skramble, Out on 
a Limb, je 5,— DM. Karate 
King, Olymp. Winterspiele 
15,— DM. Sport Show, Sex¬ 
tett, Pluspaket II, Sommer¬ 
olympiade je 22,- DM. Immer 
zuzügl. Porto. Disk-Locher 
5,- DM. Tel. 04861/6264 


PLUS4 - SUCHE Superbase, 
Pascal, BASIC-, C-Compiler, 
80-Z-Darstellung, Superko- 
pierprog. Anwend.-Prog. gg. 
Bezahlung od. Tausch. Keine 
Spiele. Tel. 07273/1595, T. 
Neumann, Marienstr. 4 A, 
6729 Hagenbach 


ACHTUNG! C16/P4. Wer hat 
in Mercenary den Schlüssel 
zur dreieckigen Tür gefunden 
u. schreibt mir die Lösung? 
Danke im voraus. A. Bischof, 
Magdeburgerstr. 58, 4900 

Herford 


SUCHE FÜR C16/PLUS4: d- 
Base +4, Textword II. Des 
weiteren suche ich für Be¬ 
kannte in der DDR noch 
günstig gebr. Hard- u. Soft¬ 
ware. Listen u. Angebote an 
Jörg Hildebrandt, Schlenken- 
brink 25, 4973 Vlotho 


FREESOFTWARE f. CI 6/ 
116/P4 u. C64. Demodisk 
doppelseit. nur 10,- DM. 
Bitte Computertyp angeben! 
Viktor Jürgens, Prinzenstr. 
131, 2330 Eckernförde 

VERKAUFE C+4, Floppy 
VC1551, Joystick, 10 Disk 
m. Anwend.- u. Spielprog. 
Bücher: Alles über den +4, 
Bedienungs- u. P4-Software- 
handbuch. Wg. Zeitmangel f. 
DM 400,- (nur zus.), alles 
neuwertig. Tel. 089/7591335. 
H. Pecha, Königswieserstr. 5, 
8000 München 71 


SUCHE KONTAKT zu Plus4- 
Usern. Erfahrungs- u. Soft¬ 
ware-Austausch. Ulrich Lau¬ 
ritzen, Goethestr. 24b/II, 
8972 Sonthofen, Tel. 08321/ 
88697 


VERKAUFE VECTREX 
Spielkonsole u. 3 Spiele f. nur 
DM 75,—. Jeses weitere Mo¬ 
dul nur DM 5,—. Bei Interesse 
(alles wirklich gut!) bitte mel¬ 
den bei: Oliver Lass, Rüben- 
hofstr. 32, 2000 Hamburg 63, 
Tel. 040/599609 


*BÜCHERPACK C16/116/+4 
* Hängt Ihnen die Buchungs-, 
Konto-, Datei-, Sortierarbeit 
u. die Rechnungsschreiberei 
zum Hals raus? Ihr Plus4 > 
kann Ihnen helfen! Im Büro- 
?ack sind jede Menge Pro¬ 
gramme, die Ihnen die Arbeit 
jrleichtern! Info: 02378/2766 
ib 18 h 


*** DAS POSTSPIEL: Galak- 
tik-Starwars *** 10-15 Mit¬ 
spieler pro Game kämpfen 
um die Vorherrschaft im 
Weltraum. Info von: ASTRO- 
DATA-CLUB, Postfach 943, 
6400 Fulda 
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■BÖRSE 


DIE TESTWELT, CI6/116/ 
Plus4-Club sucht noch viele 
Mitglieder! Wir bieten Zeit¬ 
schrift auf Tape od. Disk. 
Inhalt: Tests, Programme, Be¬ 
richte u.v.m.! Info, bitte m. 
0,80 DM, bei: TESTWELT, 
Ch. Schweier, Hermannstr. 98, 
4330 Mülheim 1 


SUCHE TAUSCHPARTNER 
f. C16/Plus4 u. 80-Zeichen- 
Monitor f. Plus4, möglichst 
billig. Suche auch noch Com¬ 
puterschrott. Hans-Jürgen 
Kinateder, Salinenstr. 6, 6927 
Bad Rappenau, Tel. 07264/ 
6957 


Matrixdrucker Seikosha SP- 
1000VC, Commodore-Inter- 
face, Traktor f. Endlospapier, 
Einzelblatteinzug, NLQ, Gra¬ 
fik, Anschluß an CI 16, CI6, 
P4, C64, 9 Mon., nur 399,- 
QM. Tel. Mo.-Frei. 8-16 h, 
0521/444371, ab 17 h 
05257/3906 


HOBBY-PROGRAMMIERER 
Suche div. Software f. CI6, 
116, P4, C64. Angebote bitte 
■2 80er-Marken f. Rückporto' 
beilegen od. anrufen bei: 
E.W. Wolters, Bismarckstr. 6, 
2930 Varel 1, Tel. 04451/ 
82412 


NEUE MAILBOX ONLINE, 
rund um die Uhr, jeden Tag. 
TERRA-COM Tel. 06142/ 
561528. Parameter: 300 
Baud 8N1, Public-Modus m. 
SF-Board, Diskussionsboards, 
Flohmarkt, Online-Games, 
Systemboards, Witzecke, Rät¬ 
selboard u. mehr 


ACHTUNG! Verkaufe C16 m. 
64K, Datasette, Joystick, Pro¬ 
grammen, Zeitschr., Gesamt¬ 
wert ca. 550,- DM, f. nur 
200,— DM od. Tausch gg. 
C64 m. Handbuch od. aufge¬ 
rüsteten VC20 m. Handbuch 
u. Netzteil. Tel. 040/6449573 


SUCHE Astronomie-, Astro¬ 
physik-Programme f. Plus4 m. 
i 5 51. Ebenso Geometrie u.~ 
Trigonometrie, nur auf Disk. 
Johannes Rabowski, Rather 
Kreuzweg 65A, 4000 Düssel¬ 
dorf 30, Tel. 0211/656418 


CI6/116/Plus4-Programme ab| 
|DM 1,—. Alle aus eigener Ent-I 
Wicklung. Liste gg. 50-Pf .-I 
Briefm. f. Porto bei Uwe LudJ 
schoweit, Hassloch am Wasserf 
werk, 6090 Rüsselsheim j * 

C16/116/PLUS4! 25 Top- 

Games auf Tape f. ganze 10,— 
DM! Schein an: Dietmar Neu¬ 
mann, Trierer Str. 398, 5100 
Aachen. P.S. Tausche auch 
Games! 


C16/PLUS4-MAGAZIN-DISK 
m. vielen Programmen u. 
Anwendungen, News, Tips u. 
Tricks, Wissen, Pokes u. Su¬ 
per-Testbildgenerator. Mit 
Picutres. 15,- DM schicken 
an Uwe Ludschoweit, Hass¬ 
loch am Wasserwerk, 6090 
Rüsselsheim 

PLUS4 m. 1551 Diskdrive, 
VIC 1525 Graphics-Printer, 
Monitor 12” bemstein, Joy¬ 
stick PR5000, Scriptplus, 
Turboplus (Module), Soft¬ 
ware aus CW-Sonderheften, 
PED 3D-Grafik, Sommer¬ 
olympiade: Preis DM 550,-. 
Tel. 089/3104451 


*** ACHTUNG! *** Wer 
schickt mir kostenlos seinen 
Computerschrott (alles am 
liebsten von Commodore). 
Ich zahle selbstverständlich 
das Porto. Danke! Frank Hen- 
nig, Fallingbosteler Str. 11, 
3036 Bonlitz 1 


HALLO, C16-FREAKS, wie 
wäre es m. ein paar neuen 
Spielen f. Eueren Commo¬ 
dore CI6, 116 od. Plus4. Ich 
schicke Euch Infos gg. 80 Pf. 
Rückporto. Konstantin Milo- 
radovic, Weidenweg 21, 4516 
Bissendorf 1 


15 VERSCH. HARDCOPIES 
in Postkartengröße gg. 5,— 
DM-Schein. Starke Pictures 
od. Picture-Disk zweiseitig m. 
Hardcopy-Routinen f. CI6/ 
+4 10,— DM. Bei Uwe Lud¬ 
schoweit, Hassloch am Wasser¬ 
werk, 6090 Rüsselheim 


C64/ 128/C16/116/P4-FANS! 
Verk. 60 Anwend., Utilities 
u. Spiele auf einer Disk od. 
Kass. f. nur 20,- DM. Bei 
Interesse Schein an: M. Grei¬ 
fenhagen, Stöckelstr. 8, CH- 
8610 Uster. System angeben! 


Suche gebr. Farbmon. f. 
Plus4 sowie Anw.-Software, 
keine Spiele. Angebote an: 
Hans-J. Karth, Asternweg 11, 
5653 Leichlingen 2 


SUCHE f. meinen Plus4: 
Spielprog. u. ähnüches auf 
Kass. Wer verkauft od. 
tauscht welche? R. Seeholzer, 
Alleestr. 16, CH-8280 Kreuz¬ 
ungen 1 


C16/116/P4-Programme ab 50 
Pf. z.B. China Horoscope, 
bildschirmgroße Digitaluhr, 
Testbildgenerator, Lottetip 
usw. Diskmagazine u. Picture- 
Disks. Liste gg. 80 Pf. Porto. 
Uwe Ludschoweit, Hassloch 
am Wasserwerk, 6090 Rüssels¬ 
heim 


SUCHE DRUCKER MPS xxx 
od. anderen f. Plus4. Außer¬ 
dem suche ich einen defekten 
CI 16 m. gesunder Tastatur. 
Eure Angebote bitte an Nor¬ 
bert Schmelzer, Haydnstr. 26, 
4178 Kevelaer 1, Tel. 02832/ 
2875 


VERKAUFE fast neuwertige * 
Computerzeitschr. wie z.B. 
COMMODORE WELT, Com- 
putronice, c’t, Compute mit 
ASM. Auch Sonderhefte!! 
Till Franzmann, Tel. 06132/ 
8168 


SUCHE FÜR VC20 Speicher-* 
erw. bis zu 32K. Biete als 
Gegenleistung bis max. 30,— 
DM. Angebote an Michael 
Herboth, Brucknerstr. 15a, 
6719 Esenberg/Steinborn 


+ PLUS4/C16/C116 + Verk. 
Prog.-Sammlungen I, II u. III 
v. Fa. Markt & Technik, Spie¬ 
le u. Anwend., 20,- DM. 
Auch andere Orig.-Spiele je 
8,— DM plus Porto. Bar od. 
Scheck. Tel. 0231/270660 


Wer kann an eine Schülerin 
gebrauchte Floppy od. Druk- 
ker f. meinen CI6 verschen¬ 
ken? Manuela Bogdan, Lunik- 
str. 42, DDR-Hoyerswerda 


*** VERKAUFE PLUS4*** 
Mit Floppy 1551, Fachbü¬ 
chern u. vielen Games. 
Schickt Eure Angebote an 
Frederick Althoff, Am Gro¬ 
ßen Holz 27a, 4800 Bielefeld 
1. Oder ruft an: 0521/37565 


-PLUS4, C16, CI 16- 

Suche Partner zwecks Soft¬ 
waretausch im Raum Mün¬ 
chen (möglichst Disk). Liste 
an Stefan Schulze, Riesstr. 76, 
8000 München 50, Tel. 089/ 
145223. Gruß an Walter & 
Co. u. Gaby! 


PLUS4! Suche zuverläss. 
Tauschpartner f. Software. 
Roland König, Markt 2, 4558 
Bersenbrück,Tel. 05439/2395 


SUCHE: Grundplatine f. C16 
(nicht defekt). Angebote an: 
Michael Greifenhagen, Stök- 
kelstr. 8, CH-8610 Uster, Tel. 
CH-01/9415295 zw. 19 u. 20 
Uhr 


SUCHE dt. Bedienungsanl. f. 
die integrierten Programme 
des C16/P4. Udo Lammel, 
Hebbelweg 3, 7146 Tamm, 
Tel. 07141/603571 


SUCHE Kontakte zu Plus4— 
Usern. Erfahrungs- u. Soft¬ 
waretausch. Ulrich Lauritzen, 
Goethestr. 24b/II,Tel. 08321/ 
88697 


*** SUPER! Floppy 1551, 
Mon. gelb u. Netzteil (in einem 
Gehäuse), dazu C16 (64K), 
über 100 Disk-Prog. u. Lit. f. 
nur 499,— DM komplett an 
Selbstabholer, Auch einzeln 
per NN. Info, Tel. 02861/ 
2994, tägl. ab 17 Uhr bei 
Horst 


SUCHE TAUSCHPARTNER 
u. 64-KRAM-Software f. C16, 
nur Tape. Angebote an: Rolf 
Büchner, Kemmater Str. 22, 
8632 Neustadt 


SUCHE Computerschrott aller 
Art. Suche Briefkontakt mit 
P4-Usern. Angebote u. Ant¬ 
worten an: Erwin Witzing, 
Karlstr. 17, 7910 Neu-Ulm 


VERKAUFE Software f.C16/ 
116/Plus4 u. VC20 f. nur 
20,- DM auf Kass., randvoll 
m. Spielen. Schick die Schei¬ 
ne an: Walter Koch, Augusta- 
str. 126, 4220 Dinslaken, und 
ihr bekommt die Software! 
Bitte Gerätetyp angeben. 


ACHTUNG! C16-Besitzer! 
Verkaufe Bongo, Bigmac, 
Rockman, Xadium f. 6,- DM 
per Stück. Operation Hawai 
f. 25,- DM (nur 64K). Seba¬ 
stian Kurzawa, Am Kohlen¬ 
meiler 107, 5600 Wuppertal 
22 


^KONTAKTE C16/116/P4* 
Hello You there! I am looking 
for an English boy in order to 
exchange Software with him! 
Can you help me? I only want 
Software for the great +4! 
Please write to: Henning Tho¬ 
mas, Hauptstr. 27, 5758 

Froendenberg Dellwig 


TAUSCHE Commodore Plot¬ 
ter 1520 gg. neuwert. Floppy 
f. Plus4. Suche Software auf 
Disk f. C64! Bereich Gesetz¬ 
gebung StGB, BGB, STPO, 
STVO: Straf-, bürgerl. Recht, 
Verkehrsrecht u. Zulassungs¬ 
ordnung. Ronny Peter Ant- 
holzner, Postfach 1102, 8265 
Neuötting, Tel. 08671/72119 

[oRIGINAL-Software u. -Zu-~ 
behör f. den Commodore 16/ 

116/+4 (Kass. od. Disk)! Gra- 
tis-Katalog! Postkarte an: 
P. Schäfers, Riekestr. 5, 4402 
Greven 1. Super-Poke-Liste f. 
inur 0,80 DM-Briefmarke! 

EINSTEIGER (PLUS4). Su¬ 
che im Großraum Passau u. 
München nette Leute m. fort¬ 
geschrittenen Programmier¬ 
kenntnissen, an die ich mich 
hin u. wieder m. Fragen usw. 
wenden kann. Tel. 20 h bis 
0 h, freitags, samstags 8 h bis 
10 h: 08531/3445 
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MPLETTAUSSTATTUNG 
-modore Plus4 m. Farb- 
■ 1802, Floppy 1551 u. 
ä osha 180VC zu verkau- 
* wg. Modellwechsel. Tel. 

.en-6218952, samstags. 
: 8.500 ÖS. 


:he billig zu kau- 

: N': Jede Art von C16/Plus4- 

- eien, die mehr als 16KB 

- -geböte an: Christian 
* irds, Hirtenweg 10, 2110 

-:hholz 


' IIASHOWS C16/C116/+4* 
::kaufe Diashows f. diese 
mputer in lA-Spitzenqua- 
it! Am besten zum Vorfüh- 
Außerdem habe ich jede 
:nge DIGI-Musik auf Lager! 
:n Falco bis Madonna! SU- 
: ER-SOUND! Info unter 
1378/2766 ab 18 Uhr! 


16/64KB-USER sucht Soft- 
- are aller Art auf Disk! Spie- 
Anwender, auch selbsterst. 
Uog.! Besonders gesucht: 1- 
I-3-CAD! Evtl, auch Tausch 
Raum HN!). H. Fischer, 
•_:rchhäuser Str. 18, 7103 
- ; :hwaigern 2. Auch gewerbl. 
-.ngebote v. Soft, Hard! 


I6/PLUS4-SOFTWARE ab- 
:jgeben. Sonderhefte Com- 
:ute mit Nr. 3/86,2/87,3/87, 
- 87 je Heft m. Disk 15,— 
DM; RS232-Bausatz f. C16 
-9,- DM. Jörg Hildebrandt, 
Schlenkenbrink 25, 4973 

• iotho-Uffeln 


FAST GESCHENKT! Com- 
rnodore VC20 m. Netzteil, 
Datasette u. Speichererw., 10 
Orig.-Spiele, Basic-Kurs, 9 
Kass. u. Buch, komplett nur 
DM 95,- gg. Vorkasse bei: 
G. Köneke, Westendstr. 26, 
~072 Dreieich 


. Orig.-Commodore-Joystick, 
C16-Anschluß. Absolut neu¬ 
wertig! Für nur DM 16,- 
linkl. Versand). Preiter, Tel. 
089/562377 


VERKAUFE defekte 1531 
der Motor läuft noch!) f. 
nur DM 10,- excl. Porto! Bei 
Interesse (ist wirklich billig f. 
Bastler!) bitte melden bei: 
Oliver Lass, Rübenhofstr. 32, 
2000 Hamburg 63, Tel. 040/ 
599609 


ACHTUNG! Ich suche drin¬ 
gend jemanden, der mir die 
Centronics- u. Userport-Pla¬ 
tinen aus „CW 10 u. 11/86“ 
ätzt bzw. besorgt!. Suche 
auch (gg. Portoerstattung) 
Hardware-Schrott aller Mar¬ 
ken. Thomas Wolfram, 
Schneiderei 2, 8813 Schillings¬ 
fürst 


C16/P4 m. Datasette! Da Ihr, 
nur m. Datasette, oft vernach¬ 
lässigt werdet, biete ich nun 
meine Programme auf Kass. 
an. Natürlich „Turbo“. Utili¬ 
ties, Spiele. Je Kass. (ca. 30 
Prog.) DM 15,-. Karte od. 
Brief an: Uwe Eden, Christ¬ 
busch 54, 5600 Wuppertal 2 


ORIGINAL Epsoninterface f. 
alle Commodore m. serieller 
Schnittstelle incl. dt. Hand¬ 
buch f. DM 70,-. Harald 
Hobbelmann, Junkernkamp 
18, 2822 Schwanewede, Tel. 
04209/5390 ab 18 Uhr 


-HILFE ! !-Große 

Hardwarenot! Wer schenkt 
armem Schüler aus der DDR 
alte Floppy od. Drucker f. 
Plus4? Burkhard Franke, 
Rottwerndorfer Str. 1/506, 
8045 Dresden, DDR 

VERKAUFEjede Menge Soft-I 
wäre f. C16/Plus4. Ca. 200 
Freesoftprogramme ebenfalls 
zu verk. od. zu tauschen (nur| 
gg. andere Free-Soft). Liste gg. 
1,20 DM Porto bei: K.-D. 
Schindler, Luciusstr. 10A, 
6230 Frankfurt 80, Tel. 069/ 
304941 


SUCHE User-Prog.-Listings f. 
C16 m. 64KB. Mathe, Musik, 
Grafik usw. Keine Spiele! Fai¬ 
rer Preis, P. Kruse, Thien- 
buettler Weg 1, 2353 Nortorf 

VERKAUFE Spiele (50 Pfl 
2,- DM). Wie? Fordert Lista 
gg. 80 Pf. Rückporto an: P.l 
Wernscheidt, Birkenweg 37,| 
7824 Herbolzheim. Wir su¬ 
chen auch Spiele f. CI6/116/ 
P4 zu kaufen od. zu tauschen. 
Der SPEED-CLUB sucht noch 
Mitglieder. Stichwort: SPEE- 
DY. 


*** CI6/116/Plus4 *** Verk. 
5 Anwend.-Prog. u. 20 Spiele 
f. nur 10,— DM Vorauskasse. 
Auf Disk od. Kass. Bei Tobias 
Bauer, Hessbergstr. 12, 7156 
Wüstenrot 


SUCHE Bücher u. Programme 
f. C16/64K (Disk/Tape). Auch 
Disks zu Sonderheften! Z.B. 
1-2-3 CAD, andere CAD-Prog., 
Spiele usw. ROM-Listing CI6. 
Angebote (auch gewerbl.) an: 
H. Fischer, Kirchhäuser Str. 
18, 7103 Schwaigern 2 

SUPERBASE P4 zu verkau¬ 
fen. Dazu 2 Data-Becker-Bü- 
cher, Einsteiger u. Tips u. 
Tricks, zu Superbase. Suche 
Software-Tauschpartner. Ha¬ 
rald Hobbelmann, Junkern¬ 
kamp 18,2822 Schwanewede, 
Tel. 04209/5390 ab 18 Uhr 


VERKAUFE für C16/Plus4 
Psychotests, Spiele, Grafik¬ 
shows auf einer Kass. f. 10,— 
DM. Bestellung, Info-Anfor¬ 
derung (80 PF.) an: Jörg 
Drescher, Lütjenburger Str. 
69, 2300 Kiel 14 


VERKAUFE neuwert. Set: 
Plus4, Floppy 1551, Super- 
Software (M&T-Prog.-Samm- 
lung, Kingsoft-Orig.), Anwen¬ 
der u. Games (Ace 64K u.a.). 
Alles, auch Disks, Zubehör, 
Bücher f. nur 400,— DM. MPS 
801 f. 170.- DM. Kompl. 
475,- DM. Tel. 02102/ 
470915, Frank fragen 


CBM 610 - 720 - CBM 610 
Wer kann Speicher aufrüsten? 
Suche weitere Soft- u. Hard¬ 
ware, nur Anwender zu Hob¬ 
by-Preisen. Tel. 06201/33860. 
Klaus Derksen, Am Tannen¬ 
buckel 18, 6943 Birkenau 


C-I-G nimmt noch Mitglie¬ 
der auf. Wir bieten Clubzei¬ 
tung, Softwarebibliothek, 
Freesoftbibliothek (kosten¬ 
los) f. C16/Plus4. Info gg. 
1,80 DM in Briefm. bei 
C-I-G, c/o Klaus-Dieter 
Schindler, Luciusstr. 10A, 
623 Frankfurt 80, Tel. 069/ 
304941 


EPROM-PLATINE f. Plus4 u. 
CI6, lwird in den Ex-Port ge¬ 
steckt. Für alle Modulsoft¬ 
ware. DM 25,- bei Vorkasse, 
DM 5,- bei NN. Harald Hob¬ 
belmann, Junkernkamp 18, 
2822 Schwanewede, Tel. 
04209/5390 ab 18 h. 


*********************** 

* PLUS 4 C — 16 * 

* 80 Zeichen Textverarb. * 

* deutsche Umlaute * 

* Disk DM 39,90 Fa. BLK * 

* Kaspar-Spät-Str. 15 * 

* 8000 München 90, * 

* Telefon 089 / 68 82 26 * 
*********************** 


C16/116/P4: SUCHE Tausch¬ 
partner f. Spiele u. Prog. Kau¬ 
fe auch billige Software. 
Schickt Eure Listen an: Mar¬ 
kus Tillenburg, Bilker Allee 
219, 4000 Düsseldorf, Tel. 
0211/332738 


*** SPEED COPY 1551 
kopiert 1 Disk. m. Floppy 
1551 in nur 30 Sek.! Menü 
m. vielen Funktionen, ko¬ 
piert READ ERRORS 22 
u. 23. Prog. gg. 20,- DM 
(bar!) bei: Rüdiger Siebert, 
Tegeler Weg 1, 3549 Volk¬ 
marsen 


SUCHE P4/C16-Besitzer, die 
mit mir Spiele, Programme u. 
Informationen austauschen. 
Wer Interesse an einem P4/ 
C16-Freak hat, soll mir so 
schnell wie möglich schreiben. 
Schreibt an: Markus Gehlken, 
Westerdeich, 62,2256 Voller¬ 
wiek 


HILFERUF! Suche Listing 
des Drucker-Files f. Seikosha 
SP180VC m. Superscript 128! 
Das File CBM-DOT-MATRIX 
nutzt nicht alle Möglichkei¬ 
ten! Edwin Oestreich, Am 
Rain 11, 6423 Wartenberg 1 


P4: Netzteil, Quiwi, Becker- 
Masch.-Sprache, sonst. Spie¬ 
le zu verk. wg. Systemwech¬ 
sel. Tel. 02363/66522 


CI 6/116/Plus4-Änwender: 
der Verein speziell f. uns! M. 
Clubzeitschr. u. Software-Bib¬ 
liothek. Info beim hrc e.V., 
Bauerland 15, 4800 Bielefeld 
1 


RUSSISCH auf dem CI6/ 
116P4? Glasnost macht‘s mög¬ 
lich ... Russs. Zeichensatz, 
Klimadiagramm, Wechselkur¬ 
se auf Disk. f. DM 10,- (inkl. 
Porto u. Verpackung). Info: 
80 Pf. od. Antwortschein. 
Olaf Trzebin, Kornweg 7, 
3053 Hohnhorst 


C-I-G nimmt noch Mitglieder 
auf: C16/Plus4. Wir bieten 
kostenlose Clubzeitung, Tips 
u. Tricks auch f. SCRIPT/ 
PLUS. Free-Soft-Prog. u. 
Tauschbörse. Geringer Beitrag. 
Info gg. 2- DM bei C-I-G, 
c/o K.D. Schindler, Lucius¬ 
str. 10A, 6000 Frankfurt 80 


VERKAUFE SUPER-PRO¬ 
GRAMME f. C16/116/P4 
z.B. BMX-Racers, Vegas, Jack¬ 
pot, Galaxy, Music-Master, 
Big-Mac, Rockman, Tom, 
Paint-Box, Hektik. Kosten¬ 
lose Info bei: M. Greifenha¬ 
gen, Stöckelstr. 8, CH-8610 
Uster. Jeder Brief wird be¬ 
antwortet. 


TAUSCHE jede Menge Spiele 
un. Anwend .-Prog. f. C16 u. 
Plus4 gg. Free-Softprog. z.B. 
DIN A4 Hardcopy, Dt. Zei¬ 
chensatz f. SCRIPT/PLUS. 
Zuschriften bitte m. Free- 
Softliste an: Jürgen Schindler, 
Luciusstr. 10A, 6000 Frank¬ 
furt 80 
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TAUSCHE meine Software gg. 
Eure! Disk. od. Tape. Schreibt 
od. ruft an. Sven Hüppmeier, 
Ginsterweg 8, 4796 Salzkot¬ 
ten-Niederntudorf, Tel. 
02955/1240. Computersy¬ 
stem Plus4 


VERKAUFE Software für 
C16/Plus4! Liste gg. frank. 
Rückumschlag von: Sven 
Kuessner, Bredde 6, 5758 
Fdbg.-Ardey 


Suche f. PLUS4 Kopiermodul 
od. Prog. Tape/Tape, eben¬ 
falls suche ich einen Drucker 
f. meinen Plus4. Angebote 
bitte an: Jachowski,Hauptstr. 
5,2244 Süderdeich 


Hey, Plus4/C16-USER (64K)! 
Wer will mit mir Top-Prog. 
tauschen? An Tobias Larsen, 
zum Wiegele 22,6951 Neckar¬ 
zimmern, Tel. 06261/13422. 
Eure Liste schicken! Habe z. 
B. ACE I u. II, Mercenary, 
Summer u. Winter Games auf 
Disk. 


PLUS4, Drucker, Brother 
HR5C, Floppy 1551, Joy¬ 
stick, Programme, Bücher, 
Zeitschr., sonst. Zubehör f. 
zus. DM 500,-. Tel. 089/ 
3202781 


Für P4, C16 etc. Drucker-Um¬ 
schalter, 6-pol., seriell, 1 Ein¬ 
gang, 2 Ausgänge, 60,- DM 
u. Porto. P. Range, Feldstedter 
Weg 14, 1000 Berlin 49 


SUCHE Floppy u. Drucker f. 
C16/Plus4. Zahle je bis zu 
50,- DM. Meldet Euch bei: 
M. Poser, Preetzerstr. 76, 
2300 Kiel 14, Tel. 0431/ 
77780 


HILFE ! ! ! Wer schenkt mir, 
einem armen, abgebrannten 
Schüler, den CI 6 zwecks 
Schulunterricht? Leider kann 
ich höchstens 10,- DM bezah¬ 
len. BITTE! Melden bei: Car¬ 
sten Bullert, Lewerentzstr. 57, 
4150 Krefeld 1. DANKE! 


BIETE Software f. C16/Plus4. 
Nur Disk. 1328 Blöcke f. nur 
20,— DM (Spiele u. Anwen¬ 
der). Schein an: M. Schroeer, 
Dorfstr. 4, 4670 Lünen. Kein 
Porto! Lohnt sich! 


SUCHE Skat-Prog. f. Commo- 
dore Plus4. Bernhard Lettow, 
Wickedestr. 6, 2400 Lübeck 


Div. DATA-BECKER-BÜ- 
CHER FÜR C16/Plus4 zu 
verkaufen. Z.B. Tips u. Tricks, 
Effektiv u. kreativ, Grafik- u. 
Masch.-Sprache-Buch sowie 
64er Sonderhefte. Harald 
Hobbelmann, Junkemkamp 
18, 2822 Schwanewede, Tel. 
04209/5390 ab 18 Uhr 


Suche Orig.-Handbü. v. Plus4 
sowie weitere Lit. zu Gerät 
u. integrierter Software zu 
zivilisierten Preisen u. Leer¬ 
gehäuse v. Steckmoduln od. 
defekte Spielmoduln. Tel. 
0731/42314, Samstag/Sonn¬ 
tag. Rufe zurück! 


*** VC 1520 *** Suche Plot¬ 
ter 1520! Bis 125,-DM. Nur 
funkt.-tüchtig! M. Handbuch! 
(Ich würde auch meine gan¬ 
zen Prog. hergeben, 800 St.!) 
Info bei: Frank Bauer, Seeor 
2,8261 Polling 


VERKAUFE knapp 1/2 alten 
C16 m. Datas., fast 40 Spie¬ 
len, Basic-Kurs, Lembuch, 6 
Comp.-Heften. Preis: 200,- 
DM. Tel. 06142/59383 


SUCHE günst. Floppy f. CI6 
u. Speichererw. 64 od. 128 
KB. Angebote: P. Sadowski, 
Fontanehof 7, 3180 Wolfs¬ 
burg 1 


ROM-LISTING C16/Plus4 f. 
30,— DM; Masch.-Sprache 
DB 15,- DM; Programmie¬ 
rung des 6502 DM 20,-; alles 
zus. 50,— DM. Heinrich Lurz, 
Schützendelle 63, 5012 Bed¬ 
burg, Tel. 02272/7942 


Für C16 u. Plus4: Eprom- 
Platine m. Sockeln f. nur DM 
20,-. Div. Software auf Ep- 
rom lieferbar. Liste gg. Frei¬ 
umschlag. Harald Hobbel¬ 
mann, Junkemkamp 18, 
2822 Schwanewede, Tel. ab 
18 Uhr 


VERKAUFE CI6, 6 Wo. alt, 
DM 80,—, Datas. DM 30,—. 
Lehrkurs auf Kass. gratis; 
Orig.- Kass. Textmanager 
(M&T) DM 15,-; SCRIPT/ 
PLUS-Modul DM 25,-. P. 
Schick, Eschersh. Landstr. 
24, 6000 Frankfurt 1, Tel. 
069/593525 


VERKAUFE CI 16 m. Data- 
sette u. Joystick, Heften u. 
Spielen f. 150,— DM. Tel. 
07271/41265 


SOFTWAREKATALOG 
1988! Softw. u. Zubehör f. 
Ihren Commodore 116/16/P4' 
bietet der Softwarekatalog 
88. Sowohl auf Tape als auch 
auf Disk. Gratis anfordern! 
Keine Kopien! P. Schäfers, 
Riekestr. 5, 4402 Greven 1 


CI6, Datasette, Spiele, Joy¬ 
stick wg. Systemwechsel billig 
zu verk. Preis: nur 170.— DM. 
Robert Meinl, Tel. 0731/ 
70520 


*** DFÜ *** DFÜ *** Su¬ 
che Modem f. CI6 + 64K! 
Auch Userp., nur v. DATA 
GUSS! Würde meine sämtl. 
Prog. hergeben (800!). Frank 
Bauer, Seeor 2, 8261 Polling 


SUPERGRAFIKEN aus allen 
Bereichen auf 6 Disk. f. C64 P 
C16/P4. Gg. 20,- DM Vor¬ 
kasse bei: Dirk Bäcker, Simon- 
str. 28, 56 Wuppertal 1, Tel. 
0202/305418 


HALLO, C16-FANS! Verkau¬ 
fe C16-Spiele auf Kass. f. 5,— 
DM; Quiwi 20,- DM; Winter 
u. Summer Dames je 20,- 
DM; Prog.-Sammlung u. Datei¬ 
manager je 15,- DM; Dataset¬ 
te 40,- DM sowie 10 Spiele ä 
10,- DM. Bitte Vorkasse. Die 
ersten 10 erhalten 1 Disk.- 
gratis. C.P. Pümer, Landecker- 
str. 11. 1000 Berlin 33 


TAUSCHE UND VERKAU¬ 
FE C16/P4-Prog. Habe ca. 
500. Listen an: Thorsten 
Sander, Lilienstr. 45, 4300 
Essen l,Tel. 0201/41455 


SUCHE f. 10-jährigen Jungen 
Spiele f. Plus4 u. VC20 gün¬ 
stig auf Disk., evtl. Listings 
sowie Joystick u. Lightpen. 
Angebote an: Susanne Küm¬ 
merer, Nettingsdorferstr. 33, 
A-4053 Haid/Österr. 


Free-Software CI6/116/Plus4 
zu verkaufen: Monatl. Kosten, 
Lotto, Vokabeln. Dazu große 
Liste v. SYS- u. Spiele-Pokes. 
Schickt 10,- DM u. 1,90 DM 
in Briefm. an: Wolfgang Koss, 
Bergstr. 29, 2215 Hademar- 
schen 


Free-Software: 20 Disk. f. 
Plus4/C16/116, 66 Disk. f. 
C64. Info gg. Rückporto. 
Bitte Computertyp angeben. 
Viktor Jürgens, Prinzenstr. 
131,2330 Eckernförde 


SUPER Spiel-, Grafik- u. An¬ 
wend.-Prog. f. Plus4/C16/116 
abzugeben z.B. Airwolf, Blaze, 
Ace (64K) usw., nur auf Disk, 
(dop.-seitig). 1 Disk. 20,- 
DM-Schein an: R. Steinhauer, 
Damaschkestr. 42, 5630 

Remscheid 


C16/116/Plus4. VERKAUFE 
ca. 300 Spiele od. Anwend.- 
Prog. wg. Systemwechsel auf 
Kass. (Mit: Formula 1, ACE 
16, POD etc.) Nur einmal zu 
bekommen! Angebote unter: 
07136/21328 


C16 - GELEGENHEIT - 
VERKAUFE wg. System¬ 
wechsel: CI6, Datasette, Ba- 
sic-Lehrbuch (m. Kass.), 
Floppy 1551, Bausatz 64K f. 
250,- DM (neuwertig 500,— 
DM). Helmut H. Ehlers, Gott- 
schedstr. 22, 2000 Hamburg 
60, Tel. 040/275979 


POP GOES CI6/116/PLUS4! 
Verk. 7 Musik-Masterfiles f. 
10,— DM 8 + Rückporto!) 
nur auf Disk.! Außerdem: 3 
Basic-Musik-Demos zusätzl.! 
Bestellungen an: Jens Helbing, 
Am Sportplatz 20a, 2220 St. 
Michaelisdonn 


ACHTUNG, C16/P4-Anfän- 
ger: Wg. Wechsel auf Disk zu 
verkaufen: 13 Prog. auf Kass. 
(z.B. Phantom, Ghost‘n Gob- 
lins, Music Master). NP 160,— 
DM, VB 60,- DM. Thorsten 
Sander, Lilienstr. 45, 4300 
Essen 1 


Gemeinsam 

mit 

Arbeitslosen 

Anwalt 
für das 
Leben 
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CI 6/116 PLUS4 


Autodata 


C16/116 PLUS4 


Bildschirmcode <> ASCII 


Automatischer DATA-Zeilen-Generator 


Bildschirmcode —> ASCII 


Der eingebaute Monitor des CI6 ermöglicht zwar das 
Abspeichern von Speicherinhalten, aber oft will man die 
Werte für Maschinenprogramme oder SHAPES in DATA- 
Zeilen ablegen. Das kleine Programm auf der Rückseite 
erledigt dabei die ganze Arbeit. Es arbeitet mit der Tasta¬ 
turpuffer-Methode. 


10 input“bildschirmcode“;bc 

20 ac=bc—64*(bc<32 or bc>95)-32*(bc>63 and bc<96) 
30 print ac 

Will man die Umrechung oft machen, so ist es sinnvoll, 
die Werte in einem Feld abzulegen: 

20 dimac(255):forbc=0to255:ac(bc)=bc—64*(bc<32or 
bc>95)—32*(bc>63andbc<96):nextbc 

‘print ac(l)‘ ergibt dann 65 (chrS-Code von A) 


C16/116 PLUS4 Multicolor im HIRES-Modus 


CI 6/116 PLUS4 


Zeichen unsichtbar 


Multicolormodus ein: POKE65286 or 64 

Multicolormodus aus: POKE65286 and 191 

Im Multicolormodus kann jedes Zeichen seine eigene 
Hintergrundfarbe haben. Durch POKEn in 65301 — 

65304 einstellen (B: POKE65301,16*L+F). 

Dies geht jedoch nicht im HIRES-Modus. Hier kann je¬ 
doch vor dem CHAR-Befehl der Hintergrund eingestellt 
werden und bleibt dann für dieses Zeichen erhalten (siehe 
Rückseite). 


Zeichenfarbe = Hintergrundfarbe 

COLOR1 ,RCLR(0),RLUM(0) 

Mit RCLR kann man die momentanen Farbeinstellun¬ 
gen erfahren. RLUM liefert die Helligkeit. 

Dieser Trick ist nützlich, wenn Programme nachgeladen 
oder der MONITOR im Programm verwendet wird, ohne 
daß dies sichtbar sein soll. 


C16/116 PLUS4 


aktuelle Zeilennummer 


C16/116 PLUS4 


HIRES abspeichern 


Aktuelle DATA-Zeilennummer 

Diese ist in den Speicherstellen 63/64 in LO/HI-Dar- 
stellung gespeichert. Beispiel für eine Abfrage: 

10 read a$:zn=peek(63)+256*peek(64) 

In zn steht nun die Zeilennummer der aktuellen DATA- 
Zeile. 


HIRES-Bild abspeichern 

Eine hochauflösende Grafik kann man wie ein Maschi¬ 
nenprogramm abspeichern und laden. Dies geht am be¬ 
sten mit dem MONITOR: 

s“name“,8,l 800,4000 

Bei Kassette statt ‘,8‘ ‘,1 * verwenden. 

Wird die Farbe nicht gebraucht, dann statt ‘1800‘ 
‘2000‘ einsetzen. 


C16/116 PLUS4 

Adreßvergleich CI6 <> C64 II 

Wichtige Adressen beim Umschreiben von C64- in 

C16-Programme: 


C64: 

C16 


160-162 

163-165 

interne Uhr 

199 

194 

REVERSE-Flag 

203 

198 

letzte gedrückte Taste 

209-210 

200-201 

Anfangsadresse der aktuellen 
Bildschirmzeile 

211/214 

202/205 

Cursor-Spalte/-Zeile 

212 

203 

Quotenmode 


CI 6/116 PLUS4 Adreßvergleich CI 6 <> C64 I 


Wichtige Adressen beim Umschreiben von C64- in 
C16-Programme: 

Bis zur Adresse 75 sind alle für BASIC interessanten 
Speicherstellen in ihrer Funktion identisch. 


POKE 53280,F Hintergrundfarbe setzen 
POKE 53281,F Rahmenfarbe setzen 
POKE 646,F Zeichenfarbe setzen 

CI6: alle Farbeinstellungen mit COLOR. 




ASCII —> Bildschirmcode 
10 input“ASCII-Code“;ac 

20 bc=ac+33*(ac=255)+64*(ac>63)+32*(ac<96)-32* 
(ac<160)+64*(ac>191) 

30 poke 3072,bc 


190 rem ^^autodata******************** 

200 input“start-,endadresse“;a,e 
210 zn=l 000 

220 printchr$(147)zn“data“; 

230 for a=a to a+15 

240 if a>e then printchr$(157)“ “:print“end:“:goto 
270 

250 printmid$(str$( peek(a)),2)‘\“next 
260 printchr$(157)‘ i “:print“a=“a“:e=“e“:zn='‘zn+10“ 
:goto220“ 

270 t=1319:poket,19:poket+l,13:poket+2,13:poket+3, 
13:poke239,4:end 


Laden einer HIRES;Grafik: 

Dies kann im MONITOR geschehen: 
l“name“,8 

oder direkt mit dem LOAD;Befehl: 
load“name“,8,l (bzw. \1,1‘ bei Kassette) 


Demo: 

10 rem *** im hiresmodus **** 

20 color0,2,5:graphicl ,1 :fors=ltol4 
30 forl=lto7:f=l :z=l 
40 color0,l ,f:char,s,z,mid$(t$.s,l) 
50 nextl :nexts 

60 color0,4,0:char,l ,1 “SAZXQW“ 
70 getkeya$:graphicO 



Rahmenfarbe = Hintergrundfarbe 

CLOR4,RCLR(0),,RLUM(0) 

Will man später wieder die ursprüngliche Einstellung 
zurück, so muß man die entsprechenden Einstellungen 
speichern: 

10 for i=0 to 4:f(i)=rclr(i):l(i)=rlum(i):next 
alte Einstellung: 

20 for i=0 to 4:colori,f(i),l(i):next 


Nummer der aktuellen BASIC-Zeile 

Diese steht in 57/58. 

100 de=peek(57)+256*peek(58) 
200 print de 

ergibt 100 


828-1019 

631-640 

649 

650 
653 


819-1010 


Länge der aktuellen 
Bildschirmzeile 
letztes Zeichen (I/O) 
Anzahl der Zeichen im 
Tastaturpuffer 
Kassettenpuffer 


1319—1328 Tastaturpuffer 

1343 Tastaturpuffergröße 

1344 Tastenwiederholung 


l astenwiedernolung 
Flag für SHIFT/CTRI 
und C= 


55296 2048 Farb-RAM für Textmodus 
1024 3072 Bildspeicher (Textmodus) 

(ie 1000 Byte) 

8192—16383 Farb-RAM für HIRES (beide gleich) 

POKE198,0:WAIT198,1 wartet auf Tastendruck 
(ersetzen durch GETKEY A$) 
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Kunst 



Computer sind nicht nur Gebrauchsgegenstände. Sie werden 
zunehmend auch von Künstlern als Motiv entdeckt. Einige besonders 
gut gelungene Arbeiten haben wir für Sie, unsere Leser, reservieren 
können. Alle Motive sind strikt auf eine Auflage von 
99 Exemplaren limitiert und von der Künstlerin, Sybille Areco, 
handsigniert und numeriert. Die Exponate werden nach Bestelleingang 
im 24-Farbendruck von Hand gefertigt, die Vorlage nach 

dem 99. Druck vernichtet. Unser Angebot: Jedes Motiv 
nur DM 85,-, zwei Motive DM 150,-, drei DM 210,- und 
vier Motive nur DM 250,-. Jedes Bild ist 30 x 40 Zentimeter 
groß und kommt im Passpartout in stabiler Verpackung 
(im Preis enthalten). 

Lieferzeit nach Bestelleingang: ca. drei Wochen. 


AT 488 28 

iniBü 



Bestellcoupon 

Hiermit bestelle ich in Kenntnis ihrer Verkaufsbedingungen folgende Exponate: 
Nr.: _ 


Ich zahle: (Zutreffendes bitte ankreuzen!) 

per beigefügtem Scheck □ Schein □ Gegen Bankabbuchung am Versandtag □ 



Meine Bank (mit Ortsname)_ 

Meine Kontonummer_ . 

Meine Bankleitzahl - (steht auf jedem Bankauszug) 

Nachname - Vorname_ 

PLZ/Ort_ Str./Nr. _ 

Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. 

Wichtig: Scheckeinreichung und Bankabbuchung erfolgen erst nach dem Versand. Keine 
Nachnahme möglich. Auf Wunsch Rechnung mit ausgewiesener Mehrwertsteuer. 

Unterschrift _ 

Bitte ausschneiden und einsenden an 

AKTUELL-VERLAG 
Heßstraße 90 
8000 München 40 









































Ihiu keinem 
unter 24 

(Nadeln!) 

Die Typenraddrucker sind tot, darüber braucht man 
nicht mehr lange zu diskutieren. 

Diese Zwischenstufe einer Schreibmaschine und 
eines Druckers konnte sich auf dem Markt nicht 
lange halten. Als nächstes geht es den Neun-Nadel-Matrix- 
Druckern an den Kragen. Schneider und NEC haben 
bereits das Messer gegen die Konkurrenz gewetzt. 

Beide Unternehmen brachten getrennt voneinander 
einen 24-Nadel-Drucker zum Preis unter 1000 Mark 
(ohne MwSt.) auf den Markt. Wurde damit schon 
das Ende der Neun-Nadel-Technik eingeläutet? 


N EC hatte den Sprung 
in die Verkaufshitli¬ 
ste mit der Vorstellung 
des NEC P5 gestartet. Darauf¬ 
hin schlossen sich in rascher 
Folge der P5XL, der P6, P7 
und der P9 an — alles hoch¬ 
qualifizierte 24-Nadel-Druk- 
ker der mittleren Preisklasse 
für den professionellen An¬ 
wender. Dieses Angebot wur¬ 
de nun mit dem P2200 nach 
unten hin abgerundet. NEC 
greift mit seinem neuesten 
Modell den Marktbereich der 
Homecomputer-Besitzer und 
der semiprofessionellen An¬ 
wender an. Rechnen wir beim 
P2200 mal die Mehrwertsteu¬ 
er dazu, so beläuft sich der 
empfohlene Verkaufspreis auf 
1136,— Mark - ein Sensations¬ 
preis für die Features, die in 
dem kleinen handlichen Kraft¬ 
paket stecken. 

Im Gegensatz zu seinem 
größeren Bruder, dem P6, ist 



Kompakt und fast komplett aus Plastik — so zeigt sich der 
neue Preisbrecher unter den 24-Nadel-Druckern von NEC. 
Die Verarbeitung ist nicht optimal, doch das Schriftbild 
kann überzeugen. 
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TEST! 


beim P2200 bereits ein For¬ 
mulartraktor fest eingebaut. 

Allerdings vermißten wir 
einen Feststellhebel, um die 
Papierbreite zu fixieren. Die 
Erschütterung der Druckkopf¬ 
bewegung treibt beide Stachel¬ 
räder zusammen und stört 
den einwandfreien Durchfluß 
des Endlospapiers. Dies kann 
nach längerem Gebrauch, 
wenn sich das Plastik der 
Führungen bereits etwas abge¬ 
schliffen hat, zum vorzeitigen 
Austausch des Traktors 
führen. 


Es wurde viel 
Plastik verwendet 


Das Lochrandpapier kann 
wahlweise von hinten oder 
durch einen Frontschacht ein¬ 
geführt werden, wobei der 
Traktor einmal im Zug- und 
einmal im Schubbetrieb be¬ 
nutzt wird. Dem vorderen 
Schacht ist in der Hauptsa¬ 
che jedoch eine viel nützli¬ 
chere Funktion zugedacht. Er 
besitzt während des Druckvor¬ 
gangs absolute Priorität. Um 
zwischendurch schnell mal 
einen Brief auf DIN A4-Pa- 
pier, einen Briefumschlag oder 
Etiketten zu bedrucken, wer¬ 
den diese Formate einfach 
von vorne in den Schacht ge¬ 
schoben. Das EDV-Papier 
bleibt dabei eingespannt, le¬ 
diglich der Traktor wird des- 
aktiviert. Ein Rändelrad und 
ein Hebel steuern die Papier¬ 
einzugsart. Zur genauen Ein¬ 
stellung des gewünschten For¬ 
mats dienen im vorderen 
Schacht eine Skala und eine 
verschiebbare Anlegekante für 
den linken Rand. 

Direkt über dem Schacht 
befindet sich das Bedienungs¬ 
paneel. Der P2200 verzichtet 
selbstverständlich auf das 
Mäuseklavier und läßt sich 
entweder softwaremäßig oder 
über das Bedienungsfeld dau¬ 
erhaft einstellen. Die ge¬ 
wünschten Parameter werden 
in einem EEPROM abgelegt. 
Durch einen kurzen Tasten¬ 
druck wechselt der P2200 bei¬ 
spielsweise von Draft in den 
Briefqualitätsmodus. Genauso 
einfach ist die Schriftdichte 
von 10 cpi, 12 cpi oder Pro¬ 
portionalschrift angewählt. 
Der Quiet-Schalter für Leise¬ 


treter reduziert die normale 
Lautstärke von 57 dB(A) bei 
verminderter Geschwindigkeit 
um drei Dezibel. Der Unter- 


Der Druckkopf 
benötigt viel Platz 


schied ist so stark, daß sogar 
nachts in einer Mietskaserne 
ruhigen Gewissens noch die 
persönliche Post erledigt wer¬ 
den kann. Auf den Grafikmo¬ 
dus hat diese Funktion aller¬ 
dings keinen Einfluß. 

Den meisten Platz im 
Druckkopfbereich nimmt un¬ 
zweifelhaft der eingebaute 
Traktor für sich in Anspruch. 
Die Walze ist so weit nach un¬ 
ten gerutscht, daß sie aufgrund 
der doppelten Papierzufiih- 


Pause. Bei 90 Grad wird der 
Druckvorgang für sechs Sekun¬ 
den unterbrochen und eine 
optische Warnmeldung ausge¬ 
geben. 

Die Farbe bringt der 
P2200 mittels einer Mini-Farb- 
band-Kassette aufs Papier, die 
direkt auf dem Schlitten des 
Druckkopfes eingerastet wird. 

Der Zeichensatz kann von 
IBM auf Epson umgestellt 
werden. Hierin finden sich 
Sonderzeichen aus 13 Natio¬ 
nen, die natürlich auch soft¬ 
waremäßig ausgewählt und 
gewechselt werden können. 

Sechs Schriftarten sind im 
P2200 bereits fest implemen¬ 
tiert. Draft Gothic, LQ 
Courier, LQ Super Focus, LQ 
OCR-B, LQ ITC Souvenir und 
LQ Bold PS. Weitere Schrift¬ 
arten können entweder über 
den Download-Modus oder 
über zusätzliche Schriftkasset¬ 



rungstechnik nicht mehr sicht¬ 
bar ist. Wehe dem Anwender, 
dem einmal ein Etikett unter 
der Walze kleben bleibt. Um 
diesen Störenfried zu entfer¬ 
nen, muß der Drucker fast 
komplett auseinandergebaut 
werden. 

Der Druckkopf mit seinen 
24 versetzt angeordneten 
Nadeln (0,2 mm) ist durch 
einen Hitzesensor gesichert. 
Beim Erreichen von 75 Grad 
Betriebstemperatur schaltet 
der P2200 automatisch in den 
unidirektionalen Druckmodus 
um und gönnt dem Druckkopf 
nach jeder Zeile eine Sekunde 


ten eingesetzt werden. 

Für die Kassetten besitzt 
der P2200 auf der Rückseite 
einen Schacht, dessen Klappe 
zum Herausbrechen bereits 
vorperforiert ist. Insgesamt 
ergeben sich durch die Kom¬ 
bination der verschiedenen 
Druckarten mehr als 130 
Schriftvariationen. 

Die Druckgeschwindigkeit 
wird von NEC bei Draft/Elite 
mit 168 cps, bei Draft/Pica 
mit 140 cps und in Briefquali¬ 
tät (Pica) mit 47 Zeichen in 
der Sekunde angegeben. Diese 
Werte ergeben sich bei der Be¬ 
rechnung einer Zeile ohne 


Vorschub und Wagenrücklauf. 

Im Test mußten diese An¬ 
gaben von uns jedoch stark 
nach unten korrigiert werden. 
Bei 66 Zeilen mit jeweils 78 
Spalten ergab sich für Draft/ 
Pica eine Druchschnittsge- 
schwindigkeit von 101 Zei¬ 
chen in der Sekunde, und LQ 
kam mit 40 Zeichen in der 
Sekunde aufs Papier. 

Im Grafikmodus steht der 
P2200 seinen erwachsenen 
Brüdern in nichts nach. Er be¬ 
herrscht in fünf Stufen Dich¬ 
ten von 60 Punkten pro Zoll 
bis hin zu einer Auflösung 
von 360 Punkten. Zum Ver¬ 
gleich: Laserdrucker begnü¬ 
gen sich zum größten Teil mit 
300 dots/inch. 

Der Puffer ist mit 8 KByte 
sehr großzügig ausgestattet. 
Drei bis vier Schreibmaschi¬ 
nenseiten können darin zwi¬ 
schengespeichert werden. In 
der Standardausstattung ist 
der P2200 mit einer parallelen 
Schnittstelle ausgerüstet, 
kann auf Wunsch jedoch auch 
mit einem seriellen Port er¬ 
worben werden. 

Das vorbildliche deutsche 
Handbuch verhilft mit seinen 
zahlreichen Tabellen, Dia¬ 
grammen und Beispielen so¬ 
wohl dem Einsteiger wie auch 
dem Programmierer zur op¬ 
timalen Ausnutzung seines 
Gerätes. Als Druckertreiber 
kann jeder NEC-Treiber ab P5 
aufwärts gewählt werden. 


Fazit 


Angesichts des niedrigen 
Preises kann sich theoretisch 
jetzt jeder private Anwender 
einen leistungsstarken 24- 
Nadel-Drucker gönnen. 

Vom Schriftbild, der brei¬ 
ten Anwendungspalette und 
der komfortablen Bedienung 
her präsentierte sich der 
P2200 von seiner besten Seite. 
Weniger gefallen haben uns al¬ 
lerdings die vielen „Weichpla¬ 
stikteile“, die relativ schnell 
verschlissen sind. Auch der 
Gedanke, bei einem Papierstau 
unterhalb der Walze das kom¬ 
plette Gerät in seine Einzel¬ 
teile zerlegen zu müssen, 
brachte uns nicht gerade zum 
Jubeln. ■ 
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Viel Platz 
für Kreativität 



Brother 

M-1724L 


Abgerundet sind nicht 
nur die Kanten des 
Brother M-1724L, 
sondern auch die 
komplette Ausstattung 
dieses 24-Nadel- 
Druckers. Eine 
parallele und eine 
serielle Schnittstelle, 
ein 24-KByte-Puffer, 
eingebauter Traktor 
und die einfache 
Bedienung gehören 
längst nicht zum 
Standard in dieser 
Preisklasse. 
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B rother’s neuer 24- 
Nadel-Drucker M- 
1724L ist ein 
Prachtstück in bezug auf 
moderne Technik und an¬ 
wenderfreundlichen Kom¬ 
fort. 

Der Werbespruch einer 
bekannten Zigaretten¬ 
marke „ ... und alles geht 
wie von selbst“ ist in dem 
kaum zehn Zentimeter 
hohen Gerät zur Realität 
geworden. 

Der Komfort beginnt 
schon bei der Bestückung 
des Standardgerätes: ein 
deutsches Handbuch mit 
ausführlicher Intallations- 
und Bedienungsanlei¬ 
tung, eine parallele und 
serielle Schnittstelle, 24- 
KByte-Datenspeicher, in¬ 
tegrierter Präzisionstrak¬ 
tor, manueller Einzel¬ 
blatteinzug und eine 
Farbbandkassette sind im 
Grundpreis des M-l 2724L 
enthalten. 

Die Druckbreite er¬ 
reicht in Pica bis zu 136 
Zeichen/Spalte und in 
komprimierter Schrift 
(17cpi) bis zu 272 Zei¬ 
chen. 

Die beiden Schnittstel¬ 
len sowie der Netzstecker 
wurden seitlich herausge¬ 
führt und stören dadurch 
nicht den einwandfreien 
Durchfluß des Endlospa¬ 
piers. 

Die Lebensdauer des 
flachen Druckkopfes 
wurde von Brother mit 
100 Mio. Punkten pro 
Nadel ($ 0,02 mm) ange¬ 
geben. Das Farbband für 


40 Mark verkraftet etwa 
2,5 Millionen Zeichen. 

Die Geräuschentwick¬ 
lung ist während des Be¬ 
triebes mit 58 dB(A) 
nicht gerade als leise zu 
bezeichnen. 



Brother’s M-1724L ist 
in der Lage, den Epson 
LQ-1000/1500, den Dia¬ 
bolo 630, Brother’s eige¬ 
ne Typenraddrucker-Se¬ 
rie HR und natürlich den 
IBM-Grafikdrucker zu 
emulieren. Hierzu stehen 
96 ASCII-Zeichen, 43 in¬ 
ternationale Zeichen aus 
16 Sprachen und der er¬ 
weiterte IBM-Zeichensatz 
zur Verfügung. 

Die Schriftarten glie¬ 
dern sich je weils im Draft- 
und LQ-Modus in Pica, 
Elite und Brougham. 
Doppelte Höhe und/oder 
doppelte Breite, kursiv, 
sub- oder superscript, un¬ 
terstrichen, komprimiert, 


wie auch Fett- und Schat¬ 
tendruck zählen zu den 
normalen Eigenschaften 
des 24-Nadel-Druckers. 

Eine Erweiterungskar¬ 
te, die einfach innerhalb 


/ / 


einer Abdeckplatte ver¬ 
senkt wird, erhöht das 
Schriftenangebot noch 
um drei weitere Arten 
(Prestige, Quadro und 
Anelia PS). 

Zusätzlich ist auf 
dieser Karte nochmals ein 
32-KByte-Puffer enthal¬ 
ten, der dem Brother da¬ 
mit einen Gesamt-Spei¬ 
cherbereich von stattli¬ 
chen 56 KByte verleiht. 
Etwa 25 Schreibmaschi¬ 
nenseiten Text lassen sich 
Zwischenspeichern und 
geben den Rechner früh¬ 
zeitig für andere Aufga¬ 


ben frei. Mehrfache Ko¬ 
pien desselben- Doku¬ 
ments erledigt der M- 
1724L ohne Unterstüt¬ 
zung durch den Rech¬ 
ner. Eine Copy-Funktion 
gestattet in Verbindung 
mit dem großzügig be¬ 
messenen Speicher diese 
monotone Tätigkeit. 

Zum Einstellen der 
Standard-Parameter, wie 
zum Beispiel nationalem 
Zeichensatz, Zeilenvor¬ 
schub oder Parameter der 
seriellen Schnittstelle, 
dienen drei unterhalb des 
Druckkopfbereiches 
angebrachte DlP-Schalter- 
blöcke. Der weitaus grö¬ 
ßere Rest der Einstell¬ 
möglichkeiten wird ent¬ 
weder direkt über Steuer¬ 
codes durch die Software 
übermittelt oder auf dem 
umfangreichen Frontpa¬ 
nel mittels der Folien¬ 
tasten „programmiert“. 

Durch eine Kombina¬ 
tion der verschiedenen 
Tasten lassen sich unter 
anderem Schriftbilder 
und -großen — sowie acht 
verschiedene Papierlän¬ 
gen zwischen vier und 
acht Zoll bequem anwäh¬ 
len. Auch die zusätzlichen 
Schriftarten der Erwei¬ 
terungskarte sind über die 
Folientastatur direkt er¬ 
reichbar. 

Der Traktor für End¬ 
lospapier ist, verborgen 
unter einer dunkel getön¬ 
ten Plexiglas-Abdeckung, 
in der Rückseite des Ge¬ 
häuses fest integriert. 
Feststellhebel und diverse 
Papierführungshilfen sor¬ 
gen für einen reibungslo¬ 
sen Einzug. Sowohl End¬ 
los- wie auch DIN A4- 
Papier werden vollauto¬ 
matisch eingezogen und 
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ein Zoll unterhalb der 
Blattoberseite zentriert. 
Selbst der Papierandruck¬ 
halter bewegt sich wie 
von Geisterhand zurück, 
um wenig später das Pa¬ 
pier fest an die Walze zu 
drücken. 

Doch wie verhält sich 
der M-1724L, wenn von 
EDV- auf Einzelbögen 
umgeschaltet werden 
soll? 

Er macht’s mit einem 
Tastendruck, ohne auch 
nur ein einziges Hardware¬ 
teil auszutauschen: 

Knopfdruck - das End¬ 
lospapier wird in eine 
Parkposition auf die Sta¬ 
chelräder zurückgezogen; 
einen Schalter umstellen 
- der Traktor wird still¬ 
gelegt und der Walzenan¬ 
trieb aktiv. Zuletzt wird 
nur noch das Lämpchen 
für Einzelblatteinzug auf 
dem Bedienungspanel 
zum Glühen gebracht und 
der Brother zieht an¬ 
standslos die Schreibma¬ 
schinenseite ein. Schnel¬ 
ler und anwendungs¬ 
freundlicher geht’s kaum. 

Für die automatische 
Einzelblattverarbeitung 
bietet Brother optional 
einen Schacht für etwa 
80 Bögen an. Der empfoh¬ 
lene Verkaufspreis von 
683 Mark ist für einen 
Schacht in DIN A3-Brei- 
te sicherlich nicht zu 
hoch angesetzt. Gewisse 
Differenzen nach unten 
ergeben sich dabei zusätz¬ 
lich noch von Händler zu 
Händler. 

Mit dem automatischen 
Einzug gab es keinerlei 
Installationsprobleme. 

Der Schacht wird auf die 
Walze aufgesetzt und 
durch einen Stecker auf 


der rechten Gehäuseseite 
zum Leben erweckt. Die 
Koordination mit dem 
Endlospapier war genau¬ 
so problemlos wie bei der 
manuellen Version. 

Ein Original und zwei 
Kopien sind von vorn¬ 
herein vorgesehen. Die 
Andruckstärke regelt ein 
kleiner Hebel neben dem 
Walzendrehknopf. Letz¬ 
terer ist offensichtlich 
für Linkshänder gedacht. 

Selbst Standard-Post¬ 
karten der Deutschen 
Bundespost werden klag¬ 
los verarbeitet, wenn der 
Drucker zuvor durch eine 
weitere Hebelstellung 
darauf vorbereitet wurde. 

Das Schriftbild in 
Draft Quality hat im Test 
durchaus überzeugt. Die 
Briefqualität der einzel¬ 
nen Zeichen (LQ-Modus) 
konnte dahingegen trotz 
der 24 versetzt angebrach¬ 
ten Nadeln den Matrix¬ 
drucker immer noch nicht 
verleugnen. Anwender, 
die Schreibmaschinen- 
Qualität gewohnt sind, 
müssen beim M-1724L ei¬ 
nige Abstriche machen. 
Daß auch mit Matrix¬ 
druckern bessere Qualität 
zu erzielen ist, macht bei¬ 
spielsweise NEC deutlich. 

Im Grafikbereich setzt 
der Brother M-1724L bis 
zu 360 Punkte pro Inch 
(ein Inch = 2,54 cm). 
Mehr ist im Augenblick 
aus einem Matrixdrucker 
nicht herauszuholen. Zur 
Geschwindigkeit des Ma¬ 
trixdruckers: Brothers 

gab Werte vor, die unse¬ 
ren widersprechen. Um 
eine reelle Durchschnitts¬ 
geschwindigkeit zu erhal¬ 
ten, muß die Zeilenvor- 
schubzeit mit in Rech- 


nugn gezogen werden. 
Brother ließ diesen Fak¬ 
tor, wie jeder andere 
Druckerherstller, ge¬ 
konnt aus. 


Der Brother M-1724L 
bietet ein Maximum an 
Komfort und Anwender¬ 
freundlichkeit. Im Test 
gab es keine Probleme. 

Für das Handbuch hät¬ 
ten wir uns ein Stichwort¬ 
verzeichnis gewünscht, da 
anhand des Inhaltsver¬ 
zeichnisses kaum eine 
bestimmte Funktion ge¬ 
zielt gefunden werden 
kann. 


Ein Vergleich der ange¬ 
gebenen und der tatsäch¬ 
lich errechneten Durch¬ 
schnittswerte zeigt: 


Die Schrift-Qualität im 
LQ-Modus könnte besser 
sein. Ansonsten blieb 
Brother seiner gewohnten 
Qualität treu und brachte 
mit dem DIN A3-Drucker 
M1724L ein leistungs¬ 
starkes Gerät zu einem 
ausgezeichneten Preis/ 
Leistungs-Verhältnis auf 
den Markt. 

Der Preis für die Stand¬ 
ardausstattung beträgt 
1995 Mark einschließlich 
Mehrwertsteuer. ■ 


Druckart Werksangabe _ gemessen 


Draft 10 cpi 

216 cps 


132,0 cps 

Draft 12 cpi 

180 cps 


114,8 cps 

LQ 12 cpi 

72 cps 


51,3 cps 


* * 

* 




Neueste Technologie zum vernünftigen Preis: Bereits in der 
Grundausstattung enthalten sind eine serielle- und eine 
parallele Schnittstelle, ein 24-KByte-Puffer und diverse Schrift¬ 
typen. Ein professioneller Ausbau des Brother M-1724L ist 
problemlos möglich. 


Fazit 
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